Komma zu Punkt
21.05.2007 16:17:39
Thomas
ich hab in der Recherche ein nettes kleines Makro gefunden, das mir persönlich sehr gefällt und ich mit dem auch was anfangen kann. Leider für meine Anwendung hat das Makro noch einen kleinen Haken, den ich selbst nicht lösen kann.
Und zwar habe ich auch ganze Zahlenwerte wie beispielsweise "15". Taucht soetwas auf, gibt mir das Makro einen Fehler aus. Jetzt hab ich schon versucht, die "15" mit zwei Nachkommastellen zu versehen, also "15,00", dennoch bekam ich einen Fehler. Auch bekomm ich einen Fehler wenn in der Zelle bereits ein "." auftaucht, was auch blöd ist.
Hier das Makro bisher:
Sub komma_punkt()
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00"
For Each Zelle In Selection.Cells
Zelle.NumberFormat = "@"
Wert = CStr(Zelle)
Wert = Left(Wert, InStr(Wert, ",") - 1) & "." & Right(Wert, Len(Wert) - InStr(Wert, ",") _
)
Zelle.Value = Wert
Next Zelle
End Sub
Erbitte um ne kleine Hilfe...
Grüße
Thomas