Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt