Mein Makro wandelt das deutsche Datumsformat beim kopieren von einer Zelle in eine andere in das amerikanische Format mm/dd/yy um. Auch nachträglliches formatieren hilft nicht (Laufzeitfehler 1004).
Makro folgt unten. Habe auch System Länderformat kontrolliert, ist deutsch mit tt.mm.jj. Auch läßt sich das falsche format nicht manuell - weder mit Pinsel - noch über Zelle format... richtig einstellen.
Sub Drucken_und_Senden()
'
'
'
Dim q As Worksheet, z As Worksheet
Dim LetzteZeile As Long
Set q = Sheets("Tab_1")
Set z = Sheets("Tab_1")
LetzteZeile = z.[A65536].End(xlUp).Row + 1
z.Range("A" & LetzteZeile).Range("A1:O1") = q.Range("A4:O4").Value
'z.Range("C" & LetzteZeile).NumberFormat = "TT.MM.JJ"
End Sub
Hoffe auf Hilfe.
Vielen Dank schon mal im voraus!
Gruß Kai-Uwe