Herbers Excel-Forum - das Archiv
Punkt durch Komma ersetzen
Betrifft: Punkt durch Komma ersetzen
von: Alexej
Geschrieben am: 15.12.2003 09:35:48
Hallo nochmals :)
Irgendwie finde ich die Loesung fuer mein Problem nicht (etwas weiter unten), deshalb eine andere Frage, die zur Loesung fuehren sollte.
Wie kann man Excel dazu zwingen, in einem bestimmten Bereich Zahlen mit "." als Dezimaltrennzeichen in Zahlen mit "," als Dezimaltrennzeichen umzuwandeln.
D.h. z.B. Range A10:A20, dort soll nach Zahlen gesucht werden und wenn z.B. die Zahl 12.23 gefunden wird, soll diese in 12,23 umgewandelt werden.
Weiss jemand Rat?
Wiele Gruesse aus verschneitem Moskau,
Alexej
Betrifft: AW: Punkt durch Komma ersetzen
von: Mac4
Geschrieben am: 15.12.2003 10:20:24
Hallo Alexej,
hier 2 Möglichkeiten:
Sub test()
Dim Zelle
For Each Zelle In Range("A10:A20")
Zelle.Value = WorksheetFunction.Substitute(Zelle.Value, ".", ",")
Next
End Sub
Sub test1()
Range("A10:A20").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
Marc
Betrifft: AW: Punkt durch Komma ersetzen
von: Alexej
Geschrieben am: 15.12.2003 11:45:44
Danke fuer die Hilfe :)
Ich versuche das ganze mit der ersten Formel zu loesen, jedoch habe ich nun folgendes problem, das ich die Fehlermeldung "type mismatch" bekomme :(
Gruss,
Alexej
Betrifft: AW: Punkt durch Komma ersetzen
von: Alexej
Geschrieben am: 15.12.2003 12:21:49
Die zweite Variante funktioniert einwandfrei, danke vielmals :))
Gruss,
Alexej