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:

 

Das könnte interessant sein Powered by AdWol Online Werbung

Letzte Zeile in bestimmter Spalte — VBA Excel Tipps & Tricks

Man bekommt den Integer-Wert der letzten Zeile welche sich in einer bestimmten Spalte befindet. In ...

Letzte Spalte im benutzten Bereich — VBA Excel Tipps & Tricks

Man bekommt die letzte Spalte im benutzten Bereich ausgegeben. Public Sub letzte_zeile ‚Hier wird...

Letzte Spalte einer bestimmter Zeile — VBA Excel Tipps & Tricks

Mit diesem Code, kann man die letzte Spalte einer bestimmten Zeile ermitteln. Hier wäre es die 4 Z...

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