wie kann ich wohl bei folgender Datei vorgehen:
Die Datei https://www.herber.de/bbs/user/32230.xls wurde aus Datenschutzgründen gelöscht
Alle Adressen sind dreizeilig, es sind tausende von Daten.
Vielen Dank im Voraus,
Frank
Die Datei https://www.herber.de/bbs/user/32230.xls wurde aus Datenschutzgründen gelöscht
Sub TT()
On Error GoTo Fehler
Dim LR%, TB1, TB2, I#, J#
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
J = 1 'Start ZielZeile
For I = 1 To LR Step 3
TB2.Cells(J, 1) = TB1.Cells(I, 1) 'Name
TB2.Cells(J, 2) = TB1.Cells(I + 1, 1) 'Straße
TB2.Cells(J, 3) = TB1.Cells(I + 2, 1) 'PLZ Ort
TB2.Cells(J, 4) = TB1.Cells(I, 3) 'Tel
TB2.Cells(J, 5) = TB1.Cells(I + 1, 3) 'Fax
TB2.Cells(J, 6) = TB1.Cells(I + 2, 3) 'mob
J = J + 1
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub