OpenOffice.info

danke für die schnelle hilfe :o

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 

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]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 [/code]

Gruss
Thomas

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]