ich möchte alle Tabellen in einem neuen Tabellenblatt untereinader schreiben.
Ich hänge an der Zeile "KBereich", die nicht läuft.
Wenn ich Usedrange nehme funktioniert es, allerdings möchte ich erst ab der 2.Zeile kopieren - klappt leider nicht.
Warum?
Bin für jegliche Hilfe dankbar.
Sub TabellenKopierenUntereinander()
Dim KBereich As Range
Dim ZBereich As Range
With ActiveWorkbook
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
Set KBereich = .Worksheets(i).Range("A2", Cells.SpecialCells(xlLastCell))
Set ZBereich = Worksheets(1).Cells(Rows.Count, "a").End(xlUp)(2)
KBereich.Copy Destination:=ZBereich
Next i
End With
End Sub
Gruß
Holger