Excel Spalten aufteilung

Guten Morgen,

Ich müsste, für eine Auswertung, ein Adressfeld in Excel, in die einzelne Sparten teilen.

Heißt, in einer Spalte steht: Straße Hausnummer PLZ Stadt
Nun müsste Ich für diese 4 Punkte, extra Spalten machen und diese zuordnen.

Bei 9200 Zeilen ist es etwas problematisch.

Gibt es dafür vielleicht eine Art Script ? Software ? Batch? irgendwas ?

Habt ihr da vielleicht eine Idee.

Vielen dank.

Liebe Grüße

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

Content-ID: 572041

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

Ausgedruckt am: 25.11.2024 um 00:11 Uhr

6 Kommentare

Neuester Kommentar

Hat Excel schon an Bord
Aufteilen von Text in verschiedene Spalten mit dem Textkonvertierungs-Assistenten
Text in einer Excel-Zelle auf mehrere Spalten aufteilen

Okay, müsste dann aber leider trotzdem jede Zeile bearbeiten, da es keine einheitliche "Aufteilung" gibt.
Also manchmal ist ein Punkt nach der Straße, manchmal ein Leerzeichen.
Nach der PLZ kommt immer ein Leerzeichen, vorher wird aber auch schon mit Leerzeichen gearbeitet.

Das klappt also leider nicht so

Zitat von @Dennis8799:

Okay, müsste dann aber leider trotzdem jede Zeile bearbeiten, da es keine einheitliche "Aufteilung" gibt.
Also manchmal ist ein Punkt nach der Straße, manchmal ein Leerzeichen.
Nach der PLZ kommt immer ein Leerzeichen, vorher wird aber auch schon mit Leerzeichen gearbeitet.

Das klappt also leider nicht so

Dann sollte man das auch gleich in seinen Ausgangspost schreiben, wir können ja nicht hellsehen!
Also mögliche Variationen und Beispielzeilen bitte hier in Codetags posten.

Eine Bereinigung und Aufteilung lässt sich übrigens auch schnell mit PowerQuery
https://support.office.com/de-de/article/einf%C3%BChrung-in-microsoft-po ...
erledigen

Ja, da hast du recht.
Sorry.

Am Rüppurrer Schloss 12; 76199 Karlsruhe
Karlstr. 32; 76133 Karlsruhe
Elinger Str. ; 76137 Karlsruhe
Zährinerstr. 62; 76133 Karlsruhe
Werfstr. 2-5; 76189 Karlsruhe
Am Giersberg 4; 76646 Bruchsal
Kiesfeldstr. 35; 76227 Karlsruhe
Ostmarstr. 41; 76227 Karlsruhe
Werfstr. 2-5; 76189 Karlsruhe
Rüpurrer Str. 105; 76137 Karlsruhe
Werfstr. 2-5; 76189 Karlsruhe
Am Storenacker 8/11; 76139 Karlsruhe
Werfstr. 2-5; 76189 Karlsruhe
Werfstr. 5; 76189 Karlsruhe
Werfstr. 2-5; 76189 Karlsruhe
Max-Eckmann-Str. 21-35; 76227 Karlsruhe
Auf der Breiten 3a; 76227 Karlsruhe
Alte Friederrichstr. 185; 76149 Karlsruhe
Karstr. 20; 76133 Karlsruhe
Elbiner Str. 26c; 76139 Karlsruhe
Oberoßweide (Gewann) 1; 76135 Karlsruhe

Habe hier jetzt einfach 20 Adressen als Beispiel genommen

In Excel mit Makro...

Sub SpliteAdressen()
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True
    regex.Pattern = "([^\d]+)\s+([^\s]+)?;\s+(\d+)\s+(.*)"  
    
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set matches = regex.Execute(cell.Value)
            If matches.Count > 0 Then
                With cell.Offset(0, 1).Resize(1, 4)
                    .NumberFormat = "@"  
                    .Value = Array(matches(0).submatches(0), matches(0).submatches(1), matches(0).submatches(2), matches(0).submatches(3))
                End With
            End If
        Next
    
    End With
End Sub

Ansonsten eben mit Klicki Bunti (Powerquery (s.o.))

Habe es gerade mit 200 Zeilen getestet und es scheint überall geklappt zu haben.
Danke dir vielmals.
Würde den Thread offen lassen falls noch etwas wäre bis wir es dann final angewendet haben.

gelöst Frage Entwicklung

Mehr von Dennis8799

Excel Spaltenabgleich-MakroDennis8799 - 33 Kommentare

File kopieren und verschiebenDennis8799 - 8 Kommentare

CPU Auslastung, protokollierenDennis8799 - 4 Kommentare

Windows PowerShell Out-FileDennis8799 - 6 Kommentare

Heiß diskutiert