Umwandlung einer Zahl in arabisch
Josef
Mit der folgenden
Function wird eine römische Zahl in eine arabische Zahl umgewandelt:
Function RomToArab(r As String) As Integer
Dim p As Integer
Dim z As String
If Len(r) = 1 Then '1. Basisklausel
Select Case r
Case "I"
RomToArab = 1
Case "V"
RomToArab = 5
Case "X"
RomToArab = 10
Case "L"
RomToArab = 50
Case "C"
RomToArab = 100
Case "D"
RomToArab = 500
Case "M"
RomToArab = 1000
End Select
ElseIf Len(r) = 0 Then ' 2. Basisklausel
RomToArab = 0
Else ' rekursive Klausel
search_max r, z, p
RomToArab = RomToArab(z) - _
RomToArab(Mid(r, 1, p - 1)) + _
RomToArab(Mid(r, p + 1, 1000))
End If
End Function
Wenn ich jetzt in E2 die Formel =RomToArab(F2) eintrage, dann sollte, wenn in der Zelle eine römische VIII eingetragen ist, in E2 eine 8 eingetragen werden. Funktionierte bis jetzt tadellos. Jetzt bekomme ich auf einmal die Fehlermeldung #NAME? was ich nicht ganz verstehe, weil ja bisher alles funktioniert hatte.
Was könnte hier bitte der Fehler sein?
Danke
Josef