AW: Datum umschreiben
29.12.2005 11:49:55
jan
Sorry, ihr habt mich nicht richtig verstanden.Ich brauche das Datum nicht.Ich habe aus der CSV einen Wert 2.9. Dies ist aber kein Datum, sondern ein Wert. D.h. davon gibt es 100 Werte. Nun kann ich mit diesen nicht rechnen, weil ständig dieser Wert als Datum von Excel genutzt wird.
ich habe dann folgendes probiert...
Ersetzen . durch ,
bringt 02,09,2005 #
Format auf Text gestellt
Ersetzt (,2005 durch "")
bringt 02,09 Ersetzt (0 durch "")
bringt 2,9
Folgendes Makro geht denn nicht:
Sub Makro1()
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Application.CutCopyMode = False
Selection.NumberFormat = "@"
Windows("Inhouse_29_12_2005.xls").Activate
Windows("Mappe1").Activate
ActiveCell.Replace What:=",2005", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:=",2005", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("A1").Select
End Sub
Das ganze funktioniert aber nur per Hand, wenn ich dies als Makro nehme, geht das ersetzen nicht....