Gruppe
UDF
Problem
Aus der Adresse sollen die Strasse und die Hausnummer gefiltert werden.
StandardModule: Modul1
Function HausNr(sAdr As String) As String
Dim iCounter As Integer
For iCounter = 1 To Len(sAdr)
If IsNumeric(Mid(sAdr, iCounter, 1)) Then
Exit For
End If
Next iCounter
If iCounter = Len(sAdr) + 1 Then
HausNr = ""
Else
HausNr = Right(sAdr, Len(sAdr) - iCounter + 1)
End If
End Function
Function Strasse(sAdr As String) As String
Dim iCounter As Integer
For iCounter = 1 To Len(sAdr)
If IsNumeric(Mid(sAdr, iCounter, 1)) Then
Exit For
End If
Next iCounter
Strasse = Trim(Left(sAdr, iCounter - 1))
End Function