Suche nach PLZ in Text

Da ich in der letzten Zeit häufiger die Postleitzahlen aus zusammenhängenden Texten, z.Bsp. "Die Firma GmbH Alpenstr. 32 01067 Dresden Sachsen" herausfiltern musste, habe ich mir eine Funktion geschrieben.


Public Function SuchePLZinString(Text As VariantAs Variant
    Dim i As Long

    For i = 0 To Len(Text) - 5
        If IsNumeric("1" & Left(Right(Text, Len(Text) - i), 5) & "1") Then
            SuchePLZinString = Format(Left(Right(Text, Len(Text) - i), 5), "00000")
            Exit Function
        End If
    Next
End Function

Code eingefügt mit Syntaxhighlighter 4.14

Your rating: Keine Average: 5 (4 votes)