Werbeanzeigen

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:

 

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