Straße und Hausnummer trennen

[wolke]

Es gibt noch einen Weg, wie gemacht ist das Problem für reguläre Ausdrücke, hier meine Lösung:

in VBA eine neues Modul erstellen: den Text hineinkopieren:

Code:

    Function RegxFunc(strInput As String, regexPattern As String) As String
        Dim regEx As New RegExp
        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = regexPattern
        End With
    
        If regEx.Test(strInput) Then
            Set matches = regEx.Execute(strInput)
            RegxFunc = matches(0).Value
        Else
            RegxFunc = "Nichts zu finden!"
        End If
    End Function

Dann unter Extras-> Verweise anhaken. Microsoft VBScript Regular Expressions 5.5
und die Datei mit Makro abspeichern, als XLSM

Schon hat man die Funktion regxFunc() die man aufruft mit

=RegxFunc(Zelle_mit_Hausnummer_und_Straße; Zelle mit regulärem Ausdruck)

in letztere schreibst Du zum Beispiel für die Strasse [^0-9]* in die Zelle und für die Hausnummer [0-9]{1,5}[/ \- 0-9 a-z A-Z]*

Gruß Wolke