ich habe nachfolgenden Code und möchte diesen gerne etwas vereinfachen. Problem ist, dass ich über (wksArr...) alle tabellenblätter benenne, für die der Code ausgeführt werden soll.
Meine Idee wäre nun, vor diese Tabellenblätter ein Sheet mit dem namen (Anfang) und nach dem ganzen Summs' ein sheet mit dem Namen (Ende) einzufügen. Nun soll der Code für alle Tabellenblätter zwichen (Anfang) und (Ende) durchlaufen.
Vielen dank schon einmal im voraus.
Grüße,
Hockmock
Sub Copy_Data1()
'Übertrag der Daten aus Einzelmodellen
Dim tarWks As Worksheet, wksArr() As Variant
Dim i As Long, lastRow As Long, lastCol As Long
Set tarWks = Worksheets("Übersicht")
lastCol = 56
wksArr = Array("xxx", "xyz", "ews", "yyy", "aaa", "bbb", "ccc", ......)
Sheets("Übersicht").Select
Rows("2:65533").Select
Selection.Delete Shift:=xlUp
For i = 0 To UBound(wksArr)
Worksheets(wksArr(i)).Activate
With tarWks
lastRow = Range("a65536").End(xlUp).Row
Worksheets(wksArr(i)).Range(Cells(1, 1), Cells(lastRow, lastCol)).Copy ' _
Destination:=.Range(.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Address)
tarWks.Range(.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Address). _
PasteSpecial xlPasteValues
End With
Next i
Sheets("Übersicht").Select
End Sub