aktuelles Datum in Schaltfläche anzeigen [gelöst]

[Naughtydread]

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: Alles auswählen

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

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


Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

[Naughtydread]

Zusatz:

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

[Stephan]

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

das folgende Makro tut das:

Code: Alles auswählen

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

Gruß
Stephan

[Naughtydread]

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