|
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
Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
'neue Tabelle an die erste Position einf?gen
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenbl?tter
Set Rng = ThisWorkbook.Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
'Bereich kopieren
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
|