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