PLZ von Ort trennen, Text in Spalten sortieren

Wie kann man die PLZ vom Ort trennen. zB. 4000 Irgendwo,
Die PLZ ist inzwischen durch =LINKS(K16;4)in einer neuen Spalte. Sie steht aber in der alten Spalte noch vom dem Ort. Da soll sie ganz verschwinden.
2. Problem:
kann man die unten beschriebenen Datensätze irgenwie automatisch in Zellen nebeneinander bekommen. Die Überschrift der Zellen lautet:
Anr. Titel Mail Vorname Nachname Fachrichtung Berufsbez Str.Plz Ort Land Tel.
Die Datensätze sehen so aus, es ist manchmal ein Teil, der die nächste Zeile betrifft, (z.B. ein Teil der Strasse) in der vorherigen Zeile
Beispiel:
DatensatzNr.
Mail Nachname Vorname
Berufsbezeichnung (sind manchmal mehrere Wörter) Staße
PLZ Ort
Land
tel.Nr.
DatensatzNr.
Mail Nachname Vorname Berufsbezeichnung
Fachrichtung Teil der Strasse
Rest der Stasse
PLZ Ort
Land
Tel.Nr.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Sabine,
schau mal hier: https://www.herber.de/bbs/user/12657.xls
Datenblööcke in Tab1, Ergebnis in Tab2, mit nachfolgendem Code.
Endweder alle Blöcke auf 7 Zeilen abändern (Strasse) oder den Else-Block ausfüllen.
Gruß
Reinhard
ps: wer issn Robert? *g

Option Base 1
Sub tt()
Dim letzte As Long
Set ws2 = Worksheets("Tabelle2")
With Worksheets("Tabelle1")
.Activate
letzte = .Range("A65536").End(xlUp).Row + 1 'Zelle nach letzter nichtleeren Zelle in A
letzte2 = ws2.Range("A65536").End(xlUp).Row + 1 'Zelle nach letzter nichtleeren Zelle in A
Start = 1
Ende = 1
While Start <= letzte
While Range("a" & Ende) <> ""
Ende = Ende + 1
Wend
laenge = Ende - Start
With Range("A" & Ende)
.Offset(-1, 0).Copy Destination:=ws2.Range("M" & letzte2)
.Offset(-2, 0).Copy Destination:=ws2.Range("L" & letzte2)
.Offset(-3, 0).Copy Destination:=ws2.Range("J" & letzte2 & ":K" & letzte2)
ws2.Range("J" & letzte2) = Left(ws2.Range("J" & letzte2), 4)
ws2.Range("K" & letzte2) = Mid(ws2.Range("K" & letzte2), 6)
If laenge = 7 Then
.Offset(-4, 0).Copy Destination:=ws2.Range("I" & letzte2)
.Offset(-5, 0).Copy Destination:=ws2.Range("H" & letzte2)
.Offset(-6, 0).Copy Destination:=ws2.Range("D" & letzte2)
.Offset(-7, 0).Copy Destination:=ws2.Range("A" & letzte2)
ws2.Range("D" & letzte2) = Replace(ws2.Range("D" & letzte2), "WWW ", "")
DFEG = Split(ws2.Range("D" & letzte2))
ws2.Range("D" & letzte2) = DFEG(0)
ws2.Range("F" & letzte2) = DFEG(1)
ws2.Range("E" & letzte2) = DFEG(2)
ws2.Range("G" & letzte2) = DFEG(3)
ws2.Range("G" & letzte2) = ws2.Range("G" & letzte2) & " " & Left(ws2.Range("H" & letzte2), InStrRev(" ", ws2.Range("H" & letzte2)))
ws2.Range("H" & letzte2) = Mid(ws2.Range("H" & letzte2), InStrRev(ws2.Range("H" & letzte2), " ") + 1)
Else
'wenn Lange=6
End If
End With
Start = Ende + 1
Ende = Start
letzte2 = letzte2 + 1
Wend
End With
ws2.Activate
End Sub

Beliebteste Forumthreads (12 Monate)

PLZ von Ort trennen, Text in Spalten sortieren

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PLZ von Ort trennen, Text in Spalten sortieren

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread