Office: Adressdaten aus einer Spalte in mehrere Spalten aufschlüssel

siehe im anhang

 

Leichter wird das auch nicht, da bei einigen Datensätzen keine Adresse vorhanden ist...
Oder sehe ich das falsch?

 

Teste mal diesen:

Code:

Sub konvertierung2()
Dim Zähler As Integer, Zeile As Integer
With Sheets("Sheet2")
.Cells.Delete
.Cells(1, 1) = "Firma"
.Cells(1, 2) = "PLZ"
.Cells(1, 3) = "Ort"
.Cells(1, 4) = "Adresse"
.Cells(1, 5) = "Telefon"
.Cells(1, 6) = "Fax"
.Cells(1, 7) = "eMail"
.Cells(1, 8) = "URL"
Zeile = 2
Zähler = Range("A65536").End(xlUp).Row
Do Until Zähler <= 7
.Cells(Zeile, 8) = Cells(Zähler, 1)
.Cells(Zeile, 7) = Cells(Zähler - 1, 1)
.Cells(Zeile, 6) = Cells(Zähler - 2, 1)
.Cells(Zeile, 5) = Cells(Zähler - 3, 1)
.Cells(Zeile, 2) = Left(Cells(Zähler - 4, 1), 5)
.Cells(Zeile, 3) = Mid(Cells(Zähler - 4, 1), 7, 99)
If Cells(Zähler - 6, 1) = "" Then
.Cells(Zeile, 1) = Cells(Zähler - 5, 1)
Else
.Cells(Zeile, 1) = Cells(Zähler - 6, 1)
.Cells(Zeile, 4) = Cells(Zähler - 5, 1)
Zähler = Zähler - 1
End If
Zähler = Zähler - 7
Zeile = Zeile + 1
Loop
.UsedRange.Columns.AutoFit
End With
End Sub

 

hallo,

ich hab es eben mal getestet und erhalte nun die mitteilung, wie sie im anhang beschrieben ist.

außerhalb des index?
was ist damit gemeint?

 

Klingt sehr nach falschem Blattnamen...
(tu mir das nicht an)

 

ööhhhmmm, ja... da war doch was...
ups... danke dir, da lag der fehler.

funzt. ab we werde ich mich direkt nur mit VBA befassen, dann unterlaufen mir solche fehler nicht mehr.

funzt, danke dir.

magst ein bier heute abend?

 

Schäm dich!
Troll dich!
Kusch dich!
Werd' sofort rot!

PS: Bin schon auf ein Weinchen verabredet...