Formel oder VBA - PLZ aus langem Text extrahieren

Hallo zusammen,

dies ist meine erste Anfrage, ich hoffe ich kann mein Anliegen gut beschreiben:

Ich erhalte monatlich eine Tabelle, Diese Tabelle beinhaltet in Spalte C eine wichtige Position. Daraus brauche ich die Postleitzahl in Spalte D. Diese PLZ benötige ich um später einen Link zu erstellen.
Leider ist manchmal auch eine Telefonnummer mit drin, so dass ich eine gefundene Matrix nicht anwenden kann, da es mir nur die Telefonnummer gesplittet und ausgeworfen hat.
Matrix

Bsp.: in Spalte C steht

Arbeitgeber<br>Vorname Nachnahme<br>Irgend-eine-Straße-4<br>23568 Lübeck<br>T: 0390 39999999999<br>Vorname.Nachname@arbeitgeber.de

Nun ist nicht jeder Text gleich lang und ich hab oft über 84 Städte als Vergleichswert.
die Formel: =TEIL(C2;SUCHEN(L2;C2;1);5) funktioniert, aber ich muss ja über 84 PLZ vergleichen, da endet meine Excel Kompetenz.

Ist eine Matrix (gern auch mit Button) möglich, die mir nur die PLZ ausgibt?
Oder auch eine Formel die mir die PLZ findet und ausgibt?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 91814096221

Url: https://administrator.de/contentid/91814096221

Ausgedruckt am: 04.12.2024 um 19:12 Uhr

10 Kommentare

Neuester Kommentar

Hast du schon mal versucht, diese Zellen in C aufzuteilen?
In den Datentools unter Daten gibt es die Funktion "Text in Spalten".
Da kannst du das <br> als Trennzeichen nehmen und bei einem zweiten Durchlauf dann das Leerzeichen.
Dann solltest du irgendwo die PLZ alleine in einer Zelle haben.
Muss man aber ausprobieren und evtl. anpassen.

Danke =)
Ja, das habe ich versucht. Das würde gehen, aber lange dauern und ich möchte die Datei an die Abteilung zurückgeben und die sollen zukünfitg dann nur neue Werte in Spalte C einfügen und unsere Formatierung soll die PLZ selbst ausgeben.

Hallo

Hast du denn in dieser Tabelle immer 3x <br> vor der PLZ?

Gruss

Excel 2013 - Daten aus Word Datei ohne Trennzeichen importieren

Sub PLZExtrahieren()
    Set regex = CreateObject("vbscript.regexp")    
    regex.IgnoreCase = True
    regex.Pattern = "\b(\d{5})\b"    
    
    With ActiveSheet
         for each cell in .Range("C2:C" & .Cells(Rows.Count, "C").End(xlUp).Row)  
             Set matches = regex.Execute(cell.Value)
             If matches.Count > 0 Then
                cell.Offset(0,1).Value = matches(0).submatches(0)
            End If
         Next
    End With
End Sub

Sid.

Moin,

sofern das Muster immer gleich aussieht:

=TEIL(TEIL(TEIL(C1;FINDEN("<";C1)+4;1000);FINDEN("<";TEIL(C1;FINDEN("<";C1)+4;1000))+4;1000);FINDEN("<";TEIL(TEIL(C1;FINDEN("<";C1)+4;1000);FINDEN("<";TEIL(C1;FINDEN("<";C1)+4;1000))+4;1000))+4;5)  