Text in Datumsformat Makro läuft nicht
21.03.2006 14:52:08
Gisela
ich erhalte eine Datei, in der das Datum als Text steht. Wenn ich die Änderung ins Datumsformat per Hand vornehme (mit 1 multiplizieren/Zelle Format) klappt es.
Ich hab mir den folgenden Makro aus dem Archiv angepasst. Aber das klappt nicht. Mit meinen bescheidenen Recorder-Kenntnissen fehlt mir da auch etwas der Durchblick. Kann mir bitte jemand sagen, was ich ändern muss, damit der Makro läuft.
Es soll in Spalte D, ab D3 der Bereich markiert werden, der Text enthält und dann als Datum formatiert werden.
Sub Test()
Sheets("AktVB_FG").Select
[P1].FormulaR1C1 = "1"
[P1].Copy
[D3].Select
ActiveSheet.Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Selection.NumberFormat = "dd/mm/yy;@"
[P1].ClearContents
Sheets("AktVB_FG").Select
[P2].Select
End Sub
Vielen Dank für jede Hilfe
Grüße
Gisela