ich habe einen großen Datensatz bei dem in einer Spalte die gesamte Adress-Information gespeichert werden. Die Schreibweise ist hierbei ganz unterschiedlich - leider. Im Anhang ein Beispiel-Datensatz. Ich bräuchte eine Formel - die mir immer die Postleitzahl in die danebenliegende Zelle schreibt. Geht das bei einem derartig unterschiedlichen Aufbau der Adress-Zellen? Die einzige Gemeinsamkeit ist die, dass jede Postleitzahl eine 5-stellige Zahlenabfolge darstellt. In Ostdeutschland beginnnen diese mit 0.
Option Explicit
Function fncZahl(strTMP As String) As String
Dim objRegEx As Object
Dim objValue As Object
Set objRegEx = CreateObject("VbScript.RegExp")
With objRegEx
.Pattern = "\d{5}"
Set objValue = .Execute(strTMP)
If objValue.Count Then
fncZahl = objValue(0)
Else
fncZahl = "Keine PLZ!"
End If
End With
Set objValue = Nothing
Set objRegEx = Nothing
End Function
Code in ein Modul und dann in B2 "=fncZahl(A2)" und runterziehen. :21: