Suchen/Ersetzen
09.01.2006 11:04:02
Ines
ich habe folgendes Problem:
Eine Datei soll für England nutzbar sein, d. h. alle Dezimaltrennzeichen, die in meiner Datei für Deutschland "," lauten, müssen in "." geändert werden. Wenn ich das "manuell" mit Bearbeiten-Ersetzen-Alle ersetzen mache, funktioniert das auch wunderbar. Wenn ich dabei allerdings den Code mit dem Macrorecorder aufzeichne und dann das Macro starte, tut sich nichts. Das Macro läuft zwar ab, aber ersetzt wird nichts. In meinem Makro habe ich wegen des Tausendertrennzeichens vorsichtshalber auch das Format auf "Standard" umgestellt:
Sub KommaDurchPunktErsetzen()
Cells.Select
Selection.NumberFormat = "General"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Kann mir jemand sagen was ich falsch mache? Ich kann einfach nicht verstehen, dass etwas manuell funktioniert, aber nicht durch ein aufgezeichnetes Makro. Auch die Tipps, die ich zum Thema Ersetzen im Forum gefunden habe, haben nicht funktioniert.
Erschwerend kommt hinzu, dass ich mit Excel 2002 arbeite, die Datei aber auch auf Excel 97 laufen muss.
Viele Grüsse
Ines