Transponieren in großer Tabelle

[dl3due]

Hallo Excel Gemeinde!
Habe eine große Tabelle mit untereinander stehenden Adressdaten in Spalte D. Immer 4 Zeilen gehören zu einer Adresse.
Manuell markiere ich z. B. D1:D4, kopiere die Daten und setze sie in transponierter Form in E1 wieder ein.
Das ganze muss also bis zum Ende der Tabelle wiederholt werden. Nächster Adressblock ist dann D5:D8... Einsetzen in E5 usw.

Möchte das mit VBA machen. Durch Aufzeichnung vom Makro habe ich folgende Zeile erhalten:

Sub transponieren()
'
' transponieren Makro
'
    Range("D1:D4").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Jetzt soll das natürlich als Schleife laufen bis zur letzten beschriebenen Zeile.

Kann da jemand helfen?

Andy
Office 365

[Elex]

Hey

Mal auf die schnelle. Die 100 halt anpassen. (Letzte Zeile in D)

Code:

Public Sub trans()
Dim i As Long

For i = 1 To 100 Step 4
Cells(i, 5).Resize(, 4).Value = Application.Transpose(Cells(i, 4).Resize(4).Value)
Next i

End Sub

Gruß Elex

[dl3due]

Hallo Elex,

vielen Dank. Klappt hervorragend! Schönes Wochenende!

[RPP63]

Moin!
Ich würde ja ZEILENUMBRUCH(Bereich;4) nehmen.
So ganz ohne VBA.

Gruß Ralf

[dl3due]

Vielen Dank Ralf
Kannst Du mir ein Beispiel geben?
Wenn ich das richtig verstehe, habe ich dann die Adressen in einer Zelle mit jeweils Zeilenumbruch. Zur normalen Verwendung sicher geeignet. Ich benötige die Daten in transponierter Form, da sie später  als Steuerdatei für verschiedene Anwendungen dienen müssen.

[oee]

" Kannst Du mir ein Beispiel geben? " ?
DU musst hier ein Beispiel geben in Form einer Datei.

[dl3due]

OK, im Anhang ein stark verkürztes Beispiel.
Das Original hat ca 200 Zeilen (variabel). In Spalte D stehen Adressdaten, immer in der selben Form. Ich möchte diese Daten in transponierter Form in Spalten E-H. Mit dem Makro klappt es hervorragend. Da muss ich allerdings nur noch die Leerzeilen entfernen und habe als Ergebnis eine Tabelle, zu verwenden als Steuerdatei.

Wenn es ohne VBA geht, wäre toll. Bin über jede Hilfe dankbar.

[oee]

So einfach geht das mir Excel365:

  Adressen2.xlsx (Größe: 10,83 KB / Downloads: 5)

[dl3due]

Ich nochmal, Danke an alle helfenden.

Habe es mit Zeilenumbruch hinbekommen. Perfekt
In der Beispieldatei in Zelle E1

=ZEILENUMBRUCH(D1:D24;4)

Danke.

[oee]

Ist klar, DU hast es hinbekommen....