Gruppe
Allgemein
Problem
Die Zeichenfolgen in Spalte A sollen in Währung umgewandelt werden. Der zu bearbeitende Bereich ist auszuwählen.
StandardModule: Modul1
Sub Umwandeln()
Dim rng As Range
For Each rng In Selection.Cells
With rng
.NumberFormat = "€ #,##0.00"
.Value = .Value
End With
Next rng
End Sub