|
Guten Morgen,
ich habe folgendes Problem.
Ich habe eine Exceldatei mit mehreren Tabellenblättern. Das erste Tabellenblatt ist die Eingabeseite, auf diesem befinden sich mehrere CommandButton.
Ab dem zweiten Tabellenblatt sind meine Daten hinterlegt. Diese Tabellenblätter werden immer wieder ergänzt.
Nun möchte ich, dass mit drücken eines Commandbutton alle Tabellenblätter ab dem zweiten zusammengeführt werden.
Diesen Code habe ich bereits gefunden
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
Set Rng = ThisWorkbook.Worksheets(i).UsedRange
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
Rng.Copy Destination:=rng1
Next
End With
End Sub
|
Nun hätte ich gerne, dass eben wie oben beschrieben erst ab dem 2. Tabellenblatt zusammengeführt wird.
Desweiteren sollte pro Tabellenblatt erst ab Zeile 5 kopiert werden.
Ich hoffe, mir kann dabei jemand helfen
Vielen Dank
Max
|