Punkt durch Komma ersetzen
22.01.2013 21:29:17
chandler
ich würde gerne via Makro die Punkte durch Komma ersetzen.
Leider funktioniert das Makro nicht, wenn die Zahl mehrere Punkte hat, also so: 1.542.608.142
Und so hätte ich gerne die Zahl: 1,542608142
Der folgende Code ersetzt nur einen Punkt in der Zahl.
Sub test()
Range("C21:K30").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
Bitte wer kann helfen. Danke im Voraus.
chandler
Anzeige