OpenOffice.info

Hi,

jo das passt,Danke.

  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

oZell.Value = oZelle

Es hätte durchaus gereicht Deinen Makrotext hier herein zu kopieren

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

Lösung des Problems: Du setzt die [b]Zeichenkette[/b] (weil in Anführungszeichen) [color=#008000]oZelle[/color] 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 [color=#0040FF]Extras>Optionen...>OpenOffice.org Calc>Berechnen>Datum[/color])


Setze stattdessen den Wert der Quell-Zelle

[code]oZell.Value = oZelle[/code]

Hilft das?

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