Werbeanzeigen

Römische Zahlen blitzschnell in arabische Zahlen umwandeln (VBA)

Mit dem folgenden Makro können Sie alle römischen Zahlen (z.B. IV) innerhalb eines markierten Bereiches in arabische Zahlen (z.B. 4) umwandeln:

Sub Roemische_Zahlen_in_arabische_Zahlen_umwandeln()
Dim Bereich As Range
Selection.Value = Selection.Value
For Each Bereich In Selection
If Not WorksheetFunction.IsNonText(Bereich) Then
Bereich.Value = WorksheetFunction.Arabic(Bereich)
End If
Next Bereich
End Sub

Wichtig: Sollten die römischen Zahlen im markierten Bereich das Ergebnis von Formeln oder Funktionen sein, dann werden die Formeln/Funktionen durch die entsprechenden arabischen Zahlen überschrieben. Des Weiteren setzt das Makro die Funktion ARABISCH() ein, welche erst ab Excel 2013 in Excel funktioniert.

So gehts:

  • Markieren Sie den Bereich, der die römischen Zahlen beinhaltet
  • Starten Sie das obige Makro
  • Danach werden alle römischen Zahlen in arabische Zahlen umgewandelt.

Weiterführende Links bzw. interessante Artikel:

 

Werbeanzeigen
search previous next tag category expand menu location phone mail time cart zoom edit close