Seite 1 von 1
( Erledigt) Datum auslesen und einfügen
Verfasst: Di, 23.08.2011 14:55
von Hansi
Hallo Leute,
ich habe im Anhang die Datei mit Makro.
Wenn ich das Datum in Zelle A11 auslese und in Zelle B1 einfügen lasse entsteht ein ganz anderes Datum. Warum ???
Gruß Hansi
Re: Datum auslesen und einfügen
Verfasst: Di, 23.08.2011 15:22
von komma4
Es hätte durchaus gereicht Deinen Makrotext hier herein zu kopieren
Code: Alles auswählen
Sub AutoFilterung
oDok = ThisComponent
oTabellenblatt = oDok.Sheets().getByName("Filtern")
oZelle = oTabellenblatt.getCellRangeByName("A11").Value
oZell = oTabellenblatt.getCellByPosition( 1, 0 )
print oZelle
If oZelle = 0 then
Print "Kein Datum"
else
ozell.Value = "oZelle"
end if
End Sub
Lösung des Problems: Du setzt die
Zeichenkette (weil in Anführungszeichen)
oZelle in Deine Ziel-Zelle.
Diese Zeichenkette wird als Zahl 0 eingefügt -als Datum formatiert dann als 31.12.1899 (Tag Null, nach den Einstellungen in
Extras>Optionen...>OpenOffice.org Calc>Berechnen>Datum)
Setze stattdessen den Wert der Quell-Zelle
Hilft das?
Re: Datum auslesen und einfügen
Verfasst: Do, 25.08.2011 10:21
von Hansi
Hi,
jo das passt,Danke.