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:

• Die Funktion ARABISCH() in Excel
• Die Funktion RÖMISCH() in Excel
• Mit der Funktion RÖMISCH() können Sie arabische Zahlen in römische Zahlen umwandeln
• Arabische Zahlen blitzschnell in römische Zahlen umwandeln (VBA)