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

[mr_weeds]

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]

[Toxitom]

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

[mr_weeds]

danke für die schnelle hilfe