Adresse getrennt aus einer Zelle erstellen

[snb]

UDF

Code:

Function F_snb(c00)
  For j = 1 To Len(c00)
    If (Asc(Mid(c00, j, 1)) - 48) \ 10 = 0 Then
      If c01 <> "" Then c01 = Left(c01, j + 1) & " " & Right(c00, Len(c00) - j + 1)
      If c01 = "" Then c01 = Left(c00, j - 1) & " " & Mid(c00, j, 5) & " " & Mid(c00, j + 5)
      j = j + 6
    End If
  Next

  F_snb = c01
End Function

[snb]

Alternative

[helwagemi]

Hallo, noch ein Vorschlag mit ein paar ausgeblendeten Spalten.
Gruß Helmut

[helwagemi]

Hallo, noch ein Vorschlag mit ein paar ausgeblendeten Spalten.
Gruß Helmut

Hallo, tut mir leid, die Tabelle funktioniert nur mit Libreoffice-Calc, da die Formeln reguläre Ausdrücke enthalten, mit denen Excel nicht umgehen kann - soviel ich weiß: Wollte den Beitrag löschen, aber das geht anscheinend nicht.
Gruß Helmut

[schauan]

Hallöchen,

die Tabelle funktioniert nur mit Libreoffice-Calc

habe zumindest erst mal den Thread in das Forum Sonstige MS- und Alternativprogramme ... geschoben.

[RPP63]

Jahre später …
… kennt Excel sehr wohl reguläre Ausdrücke:

	A	B	C	D	E
1	Adresse	PLZ	Ort	Strasse	Nummer
2	AUGSBURG86159HOCHFELDSTRASSEASSE151/6	86159	AUGSBURG	HOCHFELDSTRASSE	151/6
3	REMSCHEID42853KIPPERSTRASSEASSE5B	42853	REMSCHEID	KIPPERSTRASSE	5B
4	DEGGINGEN73326UNTEREOSTLANDSTRASSEASSE11	73326	DEGGINGEN	UNTEREOSTLANDSTRASSE	11
5	GROSSDENKTE38106AUFDEMSTEINKAMP29	38106	GROSSDENKTE	AUFDEMSTEINKAMP	29
6	NÜRNBERG90425HERFORDERSTRASSEASSE21	90425	NÜRNBERG	HERFORDERSTRASSE	21
7	FREILASSING83395PFARRERLEITN9	83395	FREILASSING	PFARRERLEITN	9
8	RECKLINGHAUSEN45657ZUMNONNENBERG8	45657	RECKLINGHAUSEN	ZUMNONNENBERG	8
9	VEHLOW16866LINDENSTRASSEASSE55	16866	VEHLOW	LINDENSTRASSE	55
10	REMSCHEID42853PARKSTRASSEASSE23	42853	REMSCHEID	PARKSTRASSE	23
11	WALD88639MUSSNAUENWEG3	88639	WALD	MUSSNAUENWEG	3

Zelle	Formel
B1	=LET(Liste;WECHSELN(A2:INDEX(A:A;ANZAHL2(A:A));"EASSE";"E"); xPLZ;REGEXEXTRAHIEREN(Liste;"[0-9]+"); xOrt;TEXTVOR(Liste;xPLZ); xStrasse;REGEXEXTRAHIEREN(TEXTNACH(Liste;xPLZ);"[A-Z]+"); xNummer;TEXTNACH(Liste;xStrasse); VSTAPELN({"PLZ"."Ort"."Strasse"."Nummer"};HSTAPELN(xPLZ;xOrt;xStrasse;xNummer)))

Gruß Ralf