OpenOffice.info

Verfasst: **So, 29.07.2012 18:59**

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

Verfasst: **So, 29.07.2012 19:43**

Zusatz:

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

Verfasst: **So, 29.07.2012 20:04**

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

Verfasst: **So, 29.07.2012 20:55**

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

OpenOffice.info

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

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

Re: aktuelles Datum in Schaltfläche per Mausklick einfügen

Re: aktuelles Datum in Schaltfläche anzeigen

Re: aktuelles Datum in Schaltfläche anzeigen