Arabische Zahlen blitzschnell in römische Zahlen umwandeln (VBA)

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

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

Wichtig: Sollten die arabischen Zahlen im markierten Bereich das Ergebnis von Formeln oder Funktionen sein, dann werden die Formeln/Funktionen durch die entsprechenden römischen Zahlen (Text) überschrieben.

So gehts:

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

Weiterführende Links bzw. interessante Artikel:

• Römische Zahlen blitzschnell in arabische Zahlen umwandeln (VBA)
• Die Funktion RÖMISCH() in Excel
• Die Funktion ARABISCH() in Excel