Hallo,
versuche mit einer Schleife in jeder Zelle, den ersten Punkt von rechts in einem String durch ein Komma zu ersetzen. Eigentlich ist ja die Replace Methode sehr gut geeignet dafür, allerdings sucht diese nur immer nur von links. Habs schon mit Mid() probiert, aber dieses klappt auch nicht so richtig. Mit Instrev irgendwie auch nicht.
Hat jemand ein Tipp? Vielen Dank
Set Bereich = Range(Cells(10, 2), Cells(Range("B10").End(xlDown).Row, Range("B10").End(xlToRight).Column))
For Each Zelle In Bereich
With Zelle
.Value = Replace(Zelle, ".", ",", InStrRev(Zelle, "."), 1)
End With
Next Zelle
|