Falsches Datumsformat im Makro



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Falsches Datumsformat im Makro
von: Kai-Uwe
Geschrieben am: 24.06.2002 - 20:53:39

Hallo Excel-User!
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

nach oben   nach unten

Re: Falsches Datumsformat im Makro
von: Hajo_Zi
Geschrieben am: 24.06.2002 - 21:02:31

Hallo Kai Uwe

unter XP zeichnet der Recorder folgende Formatierung auf
.NumberFormat = "dd/mm/yy"

Gruß Hajo


nach oben   nach unten

Re: Falsches Datumsformat im Makro
von: Kai-Uwe
Geschrieben am: 25.06.2002 - 00:06:12

Hallo Hajo!
Nach längerem probieren habe ich nun eine Lösung gefunden, s.u.
Irgendwas passiert beim kopieren des Datumformats, was, dass weiß wohl nur Bill. ODER hat irgendjemand noch eine Idee?
Gruß
Kai-Uwe


Sub Makro9()
'
'
'
Dim q As Worksheet, z As Worksheet
Dim LetzteZeile As Long
Dim MeinDatum As String
Set q = Sheets("Tab_1")
Set z = Sheets("Tab_1")
LetzteZeile = z.[A65536].End(xlUp).Row + 1
z.Range("A" & LetzteZeile).Range("A1:B1") = q.Range("A4:B4").Value
z.Range("A" & LetzteZeile).Range("D1:O1") = q.Range("D4:O4").Value
MeinDatum = Str(q.Range("C4").Value)
z.Range("A" & LetzteZeile).Range("C1:C1") = MeinDatum
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Falsches Datumsformat im Makro"