Schleife über mehrere Tabellenblätter
24.03.2017 16:10:39
Gunter
Ich habe gesamt 20 Tabellenblätter, davon soll von 19 Blättern Daten auf das 20te Blatt kopiert werden. Nun hatte ich mir das folgender Massen gedacht:
For z = 1 To Sheets.Count - 1
letzteZeile = Sheets("Tabelle" & z).Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To 2
Sheets("Tabelle" & z).Range("C" & k & ":W" & k).Copy
Tabelle20.Cells(1, k).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next k
Es kommt aber nach
letzteZeile = Sheets("Tabelle" & z).Cells(Rows.Count, 1).End(xlUp).Row
Was mache ich falsch?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
