|
Hallo,
ich habe eine Tabell in der in Spalte C Datumswerte als Text im Format MM.JJJJ angegeben sind.
Ich versuche gerade ein Makro zu programmieren, mit dem ich die Daten in ein Datumsformat umwandeln kann. Ich möchte sie gerne in der From z.B. Mrz. 2014 angezeigt bekommen. Ich hatte mal ein Makro aufgezeichnet und gesehen, dass das Format im Makro so angegeben wird: "[$-407]mmm/ yy;@"
Die durch das Makro umgewandelten Werte sollen dann einfach die vorherigen werte ersetzen.
Nun habe ich versucht das Makro zu schreiben, aber es funktioniert leider noch nicht
Sub Datum_umwandeln()
Dim rngDatum As Range
Dim lngAb As Long
Dim Datum As Date
lngAb = 2
Set rngDatum = Columns("C:C").Cells(lngAb)
Do While Not IsEmpty(rngDatum.Cells(1))
Datum = Format(CDate(Range(rngDatum).Value), "[$-407]mmm/ yy;@")
Loop
End Sub
Leider funktioniert es so noch nicht.
Wäre super, wenn mir jemand weiterhelfen könnte.
Gruß Anna
|