Zusammenführen von Zeilen

habe aus einer Datenbank eine XL-Tabelle erstellt, in der durch die Konvertierung in Zeile 1 Kundenname und in Zeile 2 die Anschrift steht. Und das für über 3.000 Kunden. Es sollen aber beide Angaben zu einem Kunden auf einer Zeile stehen, damit
z.B. besser nach Kundenname, PLZ u.s.w. sortiert werden kann.

Habt Ihr eine Lösung?

Vielen Dank im Voraus

Kay

Sub Transponieren()
Application.ScreenUpdating = False
For i = 1 To 838 Step 2
  Sheets("Tabelle1").Range("A" & i & ":" & "A" & i + 1).Copy
  Sheets("Tabelle2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=True
  Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Next
End Sub

Wenn du nicht klar kommst, dann kannst du mir deine Mappe zuschicken. Adresse siehst du oben.

Gruß Otto