OpenOffice.info

Verfasst: **So, 11.03.2007 13:19**

ich habe hier im Forum folgendes Makro gefunden, das Ergebnis ist aber: `11.03.2007 , da ich mit dem Datum weitere Berechnungen durchführen muß, brauche ein Ergebnis ohne den Apostrophen vor dem Datum.

Sub initialdatum
'Schreibt bei leerer Zelle A1 das aktuelle Datum in die Zelle
oCalc = thisComponent
oSheet = oCalc.sheets(1) '2.Tabellenblatt
ocella = osheet.getcellrangebyName("A1") 'Zelle A1
if ocella.string = "" then
ocella.string = date
end if
End Sub

hat jemand eine Lösung?
danke für Eure Bemühungen[/code]

Verfasst: **So, 11.03.2007 14:43**

Hey mr_weeds,

hmm, ja. Wenn du einen String einfügst, dann seht auch ein String in der Zelle.

Also, ersetz die Zeile "ocella.string = date" durch "ocella.value = CDate(date())"
Da "Date()" nur den String liefert, musst du den allerdings zuerst umwandeln. Oder du nimmst gleich now(), der liefert auch noch die Zeitinformation. Vergiss aber nicht, die Zelle entsprechend zu formatieren

Code: Alles auswählen

Sub initialdatum
'Schreibt bei leerer Zelle A1 das aktuelle Datum in die Zelle
oCalc = thisComponent
oSheet = oCalc.sheets(1) '2.Tabellenblatt
ocella = osheet.getcellrangebyName("A1") 'Zelle A1
if ocella.string = "" then
ocella.value = now()
end if
End Sub

Gruss
Thomas

Verfasst: **So, 11.03.2007 15:07**

danke für die schnelle hilfe

OpenOffice.info

Datum mit Makro in Zelle einfügen, wenn Zelle leer ist

Datum mit Makro in Zelle einfügen, wenn Zelle leer ist