Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Adressen Unterteilen

Adressen Unterteilen
hugo
Hallo Forum
Ich habe folgendes Problem. Mir liegen Adressen (Firmenname, PLZ, Ort, Straße) (ohne Straßennr.) komplett in einer Zeile vor:
PAS GmbH & Co. KG 01237 Dresden Gasanstaltstr.
Ich würde diese jetzt gerne unterteilen ( | = "Spaltentrenner")
NAME | PLZ | ORT | STRAßE
PAS GmbH & Co. KG | 01237 | Dresden | Gasanstaltstr.
Die PLZ hab ich schon geschafft auszulesen (wenn auch sehr "unsauber"), beim Rest hakts... Man kann übrigens nicht davon ausgehen das ein Leerzeichen jeweils eine neue Spalte bedeutet da es im Firmennamen und der Straße zwischendrinnen auch welche geben kann.
Vielen Dank im vorraus
grüße
Hugo

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Adressen Unterteilen
01.11.2010 12:36:01
MichaV
Hallo,
" Man kann übrigens nicht davon ausgehen das ein Leerzeichen jeweils eine neue Spalte bedeutet da es im Firmennamen und der Straße zwischendrinnen auch welche geben kann."
Das ist das Problem, und das kann Excel nicht für Dich lösen. Wo hört der Ort auf, wo fängt die Strasse an?
Bad Beispiel an der Zippe Oberer Alter Weg
Gruss
AW: Adressen Unterteilen
01.11.2010 13:05:15
Hans
Hallo Hugo,
stell mal eine Muster-Datei mit etwa 10 Mustereinträgen ins Netz.
AW: Adressen Unterteilen
01.11.2010 13:29:46
hugo
http://netload.in/dateixDfDyu6mMz/musterdatei.xls.htm
Hier ist die Datei. Das dort das Problem liegt war mir in etwa klar, ich wusste nur nicht ob man da irgendwie dran vorbeikommen kann... Bei 300+ Einträgen ist ja auch gewährleistet das es irgendwo Orte mit Leerzeichen gibt...
Ich würd mich vll auch damit begnügen das ganze erstmal in das Format
NAME | PLZ | ORT + STRAßE
zu bringen, das müsste doch einfacher sein?
Anzeige
AW: Adressen Unterteilen
01.11.2010 13:43:27
ransi
HAllo Hugo
Ich kann die Datei nicht downloaden.
Warum lädst du sie nicht direkt hier hoch ?
ransi
AW: Adressen Unterteilen
01.11.2010 13:50:49
hugo
Sorry, wie funktioniert das hier denn?
Grüße
AW: Adressen Unterteilen
01.11.2010 14:19:50
Markus
Hallo Hugo,
Wenn Deine Liste fast ausschliesslich mit PLZ beginnend mit 0 beginnen,
dann würde ich mit Suchen und Ersetzen nach " 0" suchen, und diese durch " | 0" ersetzen lassen,
dann hast Du mindestens für den Löwenanteil aller Adresse schon den Trenner "|".
Für den Rest nach der PLZ kannst Du dann die Formel aus der Muster-Datei von Hans nehmen.
Gruss
Markus
Anzeige
Regex
01.11.2010 14:43:56
ransi
Hallo
Als Ansatz:
Diesen Code in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit




Public Function machs(Zelle)
    Dim Regex As Object
    Set Regex = CreateObject("VbScript.Regexp")
    Dim M As Object
    Dim arr(1 To 3)
    With Regex
        .Pattern = " [0-9]{5} "
        Set M = .Execute(Zelle.Text)
        arr(1) = Split(Zelle.Text, M(0).Value)(0)
        arr(2) = Trim(M(0).Value)
        arr(3) = Split(Zelle.Text, M(0).Value)(1)
        machs = arr
    End With
End Function


Aufgerufen wird er so:
Tabelle1

 ABCDEF
1NrName    
21PAS GmbH & Co. KG 01237 Dresden Gasanstaltstr.PAS GmbH & Co. KG01237Dresden Gasanstaltstr. 
32smart Vertriebs gmbh 01239 Dresden Langer Wegsmart Vertriebs gmbh01239Dresden Langer Weg 
43Autohaus Hahn & Schmidt GmbH 01445 Radebeul Meißner Str.Autohaus Hahn & Schmidt GmbH01445Radebeul Meißner Str. 
54Auto Schreyer GmbH & Co. KG 01458 Ottendorf-Okrilla Bergener RingAuto Schreyer GmbH & Co. KG01458Ottendorf-Okrilla Bergener Ring 
65Autohaus Bruno Widmann GmbH 01662 Meißen Ziegelstr.Autohaus Bruno Widmann GmbH01662Meißen Ziegelstr. 
76TG Autohandelsgesellschaft mbH 02625 Bautzen Kreckwitzer Str.TG Autohandelsgesellschaft mbH02625Bautzen Kreckwitzer Str. 
87Autohaus Cottbus GmbH 03042 Cottbus Paul-Greifzu-Str.Autohaus Cottbus GmbH03042Cottbus Paul-Greifzu-Str. 
98smart Center Leipzig GmbH & Co.KG 04179 Leipzig Merseburger Str.smart Center Leipzig GmbH & Co.KG04179Leipzig Merseburger Str. 
10      

Formeln der Tabelle
ZelleFormel
C2=INDEX(machs(B2); 1)
D2=INDEX(machs(B2); 2)
E2=INDEX(machs(B2); 3)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Der Code orientiert sich an der ersten " " & 5-Stellige Zahl & " "
Wenn in den Firmennamen auch sowas vorkommt müssen wir uns was anderes einfallen lassen.
Google mal nach "Städteliste".
Wenn du die Städte alle in eine Spalte bekommst (ist eine Fleißaufgabe zu der ich zu faul bin) hat man eine "Positivliste" aller Städte.
Anhand dieser Liste kann man den String nach den Postleitzahlen weiter aufteilen.
ransi
ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige