Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Umwandeln von Zeichenfolgen in Währung
Problem
Die Zeichenfolgen in Spalte A sollen in Währung umgewandelt werden. Der zu bearbeitende Bereich ist auszuwählen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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