Office: Datumsformat formatieren

Hi,

ich habe folgendes Makro, welches mir die Datumsformate in einem einheitlichen Format umwandel soll.

Sub Daten_Umwandeln_schreiben()
Dim Dat As Variant
Dim z As Integer
Dat = Range("A2:A300")
Range("A2:A65536").Clear
Range("A2:A65536").NumberFormat = "dd/mm/yyyy"
For z = 1 To UBound(Dat)
If Dat(z, 1) = "" Then GoTo weiter
Cells(z + 1, 1) = CDate(Dat(z, 1))
weiter:
Next z
End Sub

Ich bekomme aber immer Laufzeitfehler'13' angezeigt, wie kann denn das sein?
Weiß da einer Rat:)
LG

 

Hallo!

Dann hast du wahrscheinlich irgendwo in A2:A300 Text stehen, der nicht in ein Datum umgewandelt werden kann.
Zumindest läuft das Makro bei mir fehlerfrei, wenn es sich ausschließlich um Zahlenwerte handelt.

 

Ja, ich kann mir das auch nicht erklären, aber es wirklich kein Text drin. Das Problem ist, wenn ich nur den Datensatz in eine neue Tabelle kopiere funktioniert das, aber wenn ich den Datensatz in der Ursprungsdatei lasse und auf die Spalte M umschreibe, löscht er mir die ganze M-Spalte, als würde er nur die Clear-Anweisung ausführen. Das ist doch nicht verständlich.....
Ich dag nur HILFE :roll:

 

Hallo!

Ich verstehe sowieso nicht, warum du zunächst die Einträge in ein Array einliest, dann die Einträge löschst, um sie dann wieder einzutragen.
???

Reicht dir nicht der Einzeiler

Code:

Range("A2:A65536").NumberFormat = "dd/mm/yyyy"