Datumsformat wiederherstellen
29.01.2013 16:32:44
chandler
beim imporieren einer csv Datei werden die Zeichen Punkt durch Komma ersetzt.
Leider wird auch die Spalte mit Datum versehen mit den Kommas, so das ich
mit dem nachfolgenden Makro die Komma's durch Punkte ersetze.
Wenn mit SVERWEIS in der Tabelle weiterhin gesucht wird, funktioniert das Datum leider nicht mehr, da die Spalte kein echtes Datumformat hat.
Meine Frage: Wie kann ich das Problem lösen, dass die Spalte mit Datum als Datum formatiert wird und ich weiter mit SVERWEIS rechnen kann?
Sub punkt()
Range("A2:A40000").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub
Vielen Dank im Voraus. chandler