folgendes Problem:
Ich möchte Zahlen im UK-Format in deutsches Format umwandeln.
Die Zahlen stehen in einer Spalte untereinander (teilweise sind auch leere Einträge in der Spalte).
Am Besten wäre eine Automatisierung der Umwandlung unterhalb einer markierten Zelle.
Bsp.: UK Format: 3,978.21 -> dt. Format: 3978,21
Für die Umwandlung habe ich ein Makro gefunden, allerdings nur für eine einzelne Zelle:
Sub UKZahlenumwandler()
zahl = Range("B1")
Do
On Error GoTo weiter
i = WorksheetFunction.Find(",", zahl)
zahl = WorksheetFunction.Replace(zahl, WorksheetFunction.Find(",", zahl), 1, "")
Loop Until i = 0
weiter:
On Error GoTo ende
i = WorksheetFunction.Find(".", zahl)
zahl = WorksheetFunction.Replace(zahl, WorksheetFunction.Find(".", zahl), 1, ",")
i = 1
ende:
Range("B1").NumberFormat = "#,##0.00"
Range("B1") = zahl * 1
End Sub
Ich habe das Makro verändert aber es funktioniert leider nicht richtig.
Kann mir da jemand helfen?
Sonnige Grüße,
Stephan