Guten Morgen zusammen,
da ich seit Tagen am hin und her kopieren bin, gibt es evtl. eine Möglichkeit, alle Tabellenblätterinhalte in ein "Mastertabellenblatt" zu kopieren?
Aufbau ist immer gleich, Spalte A-F haben Werte, welche dann fortlaufend in Tabellenblatt "Master" eingefügt werden.
Habe bis jetzt 100 Blätter kopiert und mir liegen nochmals knapp 80 bevor.
Folgendes Makrote hatte ich einmal im Internet gefunden, aber es läuft immer auf einen Fehler "index außerhalb des gültigen Bereichs"
Meine Arbeitsmappe heißt Master, und die Tabelle wo ich reinkopieren möchte ist Tabellenblatt 191
Sub Makro1()
For i = Application.Worksheets.Count To 1 Step -1
ThisWorkbook.Worksheets(i).Copy Before:=Workbooks("Master").Worksheets(191)
Next i
End Sub
Könnte jemand mir bitte auf die Sprünge helfen?
|