Umwandeln von Zeichenfolgen in Währung

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

217604    216403

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