Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1916to1920
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

Adresse .. Hausnummer

Adresse .. Hausnummer
30.01.2023 12:24:57
Mike
Hallo zusammen,
gerne würde ich bei der Adresse die Hausnummer separieren.
Wie kann ich dies am Einfachsten erledigen?
https://www.herber.de/bbs/user/157541.xlsx
Besten Dank für Eure Hilfe,
freundliche Grüsse, Mike

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Adresse .. Hausnummer
30.01.2023 12:49:33
HeritzP
Hallo,
evtl. als Matrix Formel.
=TEXTKETTE(WENNFEHLER(TEIL(B3;ZEILE($A$1:$A$100);1)*1;""))

AW: Adresse .. Hausnummer
30.01.2023 12:59:03
Mike
.. hmm, wo und wie müsste die Formel eingefügt werden, dass sie funktioniert?
Danke für Deine Hilfe, Gruss Mike
AW: Adresse .. Hausnummer
30.01.2023 13:06:17
HeritzP
Hallo,
einfügen in freier Spalte.
Mit STRG-SHIFT-ENTER abschließen.
AW: Adresse .. Hausnummer
30.01.2023 13:17:49
Mike
.. ah, herzlichen Dank .. daraus ergäbe sich dann der Umkehrschluss, dass die Strasse um die Hausnummer bereinigt werden müsste.
Gruss Mike
AW: Adresse .. Hausnummer
30.01.2023 13:23:20
HeritzP
Hallo,
Straße ohne Nummer als Matrixformel.
=WECHSELN(B3;TEXTKETTE(WENNFEHLER(TEIL(B3;ZEILE($A$1:$A$100);1)*1;""));"")

Anzeige
merci .. Adresse .. Hausnummer
30.01.2023 13:24:33
Mike
Hallo Heritz,
herzlichen Dank für die Ergänzung, das ist eine grosse Hilfe,
Gruss Mike
AW: Adresse .. Hausnummer
30.01.2023 12:51:38
Martin
- Die erste Spalte markieren
- Menu Daten
- Text in Spalten
- getrennt mit Blank..
das hilft bei 90 % deiner Tabelle. in Zeile 3 und 27 wird es dann so nicht klappen, aber das liegt daran, dass es Ausnahmen von deiner Logik sind.
Gruss Martin
AW: Adresse .. Hausnummer
30.01.2023 13:02:23
Mike
.. merci Martin auf die Schnelle ist dies wohl die einfachste Variante, trotz der zu überprüfenden ca. 900 Adressen.
Gruss Mike
AW: Adresse .. Hausnummer
30.01.2023 13:08:01
ChrisL
Hi
Ausnahmen:
B27 = keine Nummer
B40 = Nummer inkl. Text
B50 = Nummer inkl. Buchstabe
Folgender Code in ein Standardmodul (Alt+F11, Einfügen, Modul) einfügen:
Public Function myRegEx(TextInput As String, regexPattern As String, Optional strReplace As String) As String
Dim regEx As Object: Set regEx = CreateObject("VBscript.regexp")
Dim matches
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = regexPattern
End With
If regEx.test(TextInput) Then
Set matches = regEx.Execute(TextInput)
myRegEx = Trim(Replace(matches(0).Value, strReplace, ""))
End If
End Function
D3:
=GLÄTTEN(WENN(ISTZAHL(LINKS(B3;1)*1);LINKS(B3;FINDEN(" ";B3));myRegEx(B3;" \d+.*")))
E3:
=GLÄTTEN(WECHSELN(B3;D3;""))
cu
Chris
Anzeige
AW: Adresse .. Hausnummer
30.01.2023 13:22:47
Mike
Hey Chris,
wow cool, das funktioniert grandios, herzlichen Dank für Deine schnelle Hilfe,
Gruss Mike
AW: Adresse .. Hausnummer
30.01.2023 13:20:20
Daniel
Hi
du hast das Problem, dass du zwei Varianten hat, einmal Hausnummer vorne (Frankreich) und einmal Hausnummer hinten.
das wird deine Formel komplex machen, weil du beide Fälle unterscheiden musst, wenn alles in einer Formel abgebildet werden solll.
allerdings hat die Französiche Variante den Vorteil, dass du einfach nach dem ersten Leerzeichen suchen kannst.
in der deutschen Variante kannst du nach der ersten Ziffer suchen (das dürfte die meisten korrekten Ergebnisse liefern)
damit die Formeln nicht zu komplex werden, würde ich erstmal in einer Hilfsspalte die Position des Trennung ermitteln, also in C2:
=WENN(ISTZAHL(-LINKS(B3;1));FINDEN(" ";B3);AGGREGAT(15;6;FINDEN({1.2.3.4.5.6.7.8.9.0};B3);1))
Straße und Hausnummer holst du dir dann mit dieser Formel in D3, hier erst mal für die Straße, um die Hausnummer zu erhalten, tauscht du einfach TEIL() und LINKS():
=WENN(ISTZAHL(-LINKS(B3;1));TEIL(B4;C3+1;999);LINKS(B4;C3-1))
wenn dich die Hilfsspalte C stört, kannst du die auch eleminieren, in du in dieser Formel den Bezug auf C3 durch die entsprechende Teilformel ersetzt, aber dann wirds unübersichtlich.
Gruß Daniel
Anzeige
merci .. Adresse .. Hausnummer
30.01.2023 13:23:48
Mike
Hallo Daniel,
herzlichen Dank für Deine Ergänzungen, das ist eine grosse Hilfe,
Gruss Mike
AW: noch eine Formelvariante ...
30.01.2023 13:28:10
neopa
Hallo Mike,
... folgende Formel in C3:
=WENNFEHLER(AGGREGAT(14;6;--TEIL(B3;AGGREGAT(15;6;ZEILE(A$1:A$99)/TEIL(B3;ZEILE(A$1:A$29);1)^0;1);SPALTE(A$1:D$1));1);"")
Die Texte ohne die Nr. erhältst Du dann einfach wie folgt in D3: =GLÄTTEN(WECHSELN(B3;C3;""))
und beide Formeln nach unten kopieren.
Gruß Werner
.. , - ...
wunderbar .. noch eine Formelvariante ...
30.01.2023 13:30:57
Mike
Hallo Werner,
wunderbar, auch dies funktioniert ideal, danke und
Gruss Mike
AW: bitteschön owT
30.01.2023 13:31:43
neopa
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige