Range aus bestimmten Sheets kopieren
Chris
untenstehendes Makro kopiert aus allen Sheets den Bereich A1:B7 und listet diesen in einem neuen Sheet
nebeneinander bzw. untereinander auf. Funktioniert soweit Prima.
Nun soll Excel nicht aus allen vorhandenen Sheets den Bereich kopieren, sondern nur aus denen in deren Sheetnamen KW vorkommt. Fast alle Sheets tragen die Bezeichnug Datum, KW XY, Uhrzeit. Da Datum, die KW-Zahl und die Uhrzeit immer anders sind, ist nur die Buchstabenfogle KW immer gleich.
Was muss man da ändern?
CptTuttle
Sub test()
Dim i As Integer
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
For i = 1 To ThisWorkbook.Sheets.Count - 1
Sheets(i).Range("A1:B7").Copy
sh.Cells(1 + 8 * Int((i - 1) / 2), 4 - 3 * (i Mod 2)).PasteSpecial xlPasteAll
Next i
Application.CutCopyMode = False
End Sub
Anzeige