Wert ist numerisch aber keine Zahl?
Verfasst: Mi, 10.10.2018 22:49
Hallo,
kann mir bitte jemand erklären warum in Folgendem Makro-Beispiel die Zeile:
zwingend ist? Ist IsNumeric nicht bereits der Beleg das es eine Zahl ist, das Verhalten ist hingegen ja so als wenn IsNumeric nur prüft das es eine Ziffer bzw. ein 'Zahlenstring' wäre?
Hinweis: In VBA läuft das Ganze auch ohne diese Zeile und konsequenterweise läuft das Ganze auch in OO ohne diese Zeile wenn im Kopf des Moduls die VBA-Kompatibilitätsoption (Option VBASupport 1) steht.
Gruß
Stephan
kann mir bitte jemand erklären warum in Folgendem Makro-Beispiel die Zeile:
Code: Alles auswählen
If IsNumeric(ret) Then ret = VAL(ret)
Hinweis: In VBA läuft das Ganze auch ohne diese Zeile und konsequenterweise läuft das Ganze auch in OO ohne diese Zeile wenn im Kopf des Moduls die VBA-Kompatibilitätsoption (Option VBASupport 1) steht.
Code: Alles auswählen
Sub aufruf()
MsgBox Strasse("Ringstrasse 18-20")
End Sub
Function split_Strasse_HausNr(Adresse)
Dim isNummer As Boolean
Dim ret
isNummer = False
split_Strasse_HausNr = 0
For i = Len(Adresse) To 1 Step -1
ret = Mid(Adresse, i, 1)
If IsNumeric(ret) Then ret = VAL(ret)
Select Case ret
Case 0 To 9
isNummer = True
Case " "
Case "-"
Case "/"
Case Else
If isNummer = True Then
split_Strasse_HausNr = i
Exit For
End If
End Select
Next
End Function
Function Strasse(Adresse)
x = split_Strasse_HausNr(Adresse)
Strasse = Left(Adresse, x)
End Function
Gruß
Stephan