10.07.2017, 14:42
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:
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
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 FunctionDann 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