( Erledigt) Datum auslesen und einfügen

[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

[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

Code: Alles auswählen

oZell.Value = oZelle

Hilft das?

[Hansi]

Hi,

jo das passt,Danke.