OpenOffice.info

Vielen Dank Stephan, wie immer super schnell und hilfreich!!

Sub schaltflaeche_datum(akt As Object)
  akt.Source.Model.Label = Now()
End Sub

[quote]Ich wollte eine Schlatfläche einfügen und bei Betätigung dieser Schlatfläche soll sich der Titel zum aktuellen Datum ändern.

vielleicht ist es auch möglich sowohl das Datum als auch die aktuelle Zeit automatisch einzutragen[/quote]


das folgende Makro tut das:

[code]Sub schaltflaeche_datum(akt As Object)
akt.Source.Model.Label = Now()
End Sub[/code]



Gruß
Stephan

Zusatz:

vielleicht ist es auch möglich sowohl das Datum als auch die aktuelle Zeit automatisch einzutragen

Sub Aktuelles_Datum()
Dim Datumswert as string
Datumswert=date()
ThisComponent.CurrentSelection.FormulaLocal=Datumswert
End Sub 

Moin,

ich versuche mich derzeit etwas in den bereich Makro und Steuerelemente einzuarbeiten.

Dabei bin ich auf folgendes Problem gestoßen und vielleicht kann mir ja mal wieder hier jemand weiterhelfen.

Ich wollte eine Schlatfläche einfügen und bei Betätigung dieser Schlatfläche soll sich der Titel zum aktuellen Datum ändern. Immer wieder, bei Betätigung der Schaltfläche, soll dann das aktuelle Datum in der Schaltfläche angezeigt werden.

Ein Makro für das aktuelle Datum habe ich bereits:

[code]Sub Aktuelles_Datum()
Dim Datumswert as string
Datumswert=date()
ThisComponent.CurrentSelection.FormulaLocal=Datumswert
End Sub [/code]

doch, wenn ich die Schaltfläche betätige, wird das Datum halt in die Zelle geschrieben, die gerade angewählt ist ("CurrentSelection" im Code). Leider weiß ich nicht, wie ich dieses Makro abändern müsste.

Danke schonmal für die Hilfe.

Bis dann


[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst