Supportnet / Forum / Tabellenkalkulation

Bitte um Hilfe, ich habe eine Tabelle mit 25 Spalten und 2000 Zeilen. Ich möchte unter jede Zeile in Spalte 1 die Inhalte beginnend ab der 5 Spalte in der jeweiligen Zeile untereinander copieren. Leider klappt es noch nicht so wie ich es benötige. Die Tabelle sieht so aus: Spalte1 Spalte2 Spalte3 .. Spalte25 ...............Name.....111...........222 ...............Name.....333...........444 ...............Name.....555...........666 So erscheint es nach meine Lauf: Spalte1 Spalte2 Spalte3 .. Spalte25 111........Name.....111...........222 222........Name.....333...........444 333........Name.....555...........666 444 555 666 So möchte ich es aber: Spalte1 Spalte2 Spalte3 .. Spalte25 111........Name.....111...........222 222 333........Name.....333...........444 444 555........Name.....555...........666 666 Mein Makro sieht so aus: Sub copy () Dim i%, s%, lz%, ez lz = Cells(Rows.Count, 2).End(xlUp).Row ez = 1 For i = 1 To lz For s = 5 To 256 If Cells(i, s) <> "" Then Cells(ez, 1) = Cells(i, s) ez = ez + 1 End If Next Next End Sub Was muss ich noch in mein Makro einfügen. Bitte um Hilfe vielen Dank Walter

Hallo Walter,

was mir sofort auffällt. ICh würde bei solchen Problem die Schleife von der Letzten zur ersten Zeile laufen lassen.
Irgendwie vermisse ich in Deinem Code auch das Du Zeilen einfügst?
Die zweite schhleife würde ich auch von der Letzten gefüllten Spalte laufen lassen bis Spalte 5. Ich vermute mal Du möchtest nicht
SpalteH
SpalteG
SpalteF

sondern
SpalteF
SpalteG
SpalteH

Gruß Hajo

Hallo,
ja natürlich kann ich von der letzten Zeile anfangen. Ebend das Einfügen einer Zeile ist ja auch mein Problem, wie gehe ich da am besten vor?, wie muss die Formel angepasst werden?.
Vielen Dank für die Unterstützung.
Gruß
Walter

• Ich möchte eine Adresse welche untereinander steht durch kopieren nebeneinander in eine oder drei Zellen einfügen. Wie geht das?
• Makro: Zeile einfügen
• letzte beschriebene Zeile kopieren VBA
• Daten von Spalte in Zeile schreiben