variierende Anzahl Tabellenblätter kopieren
16.11.2016 20:45:10
BeffJeck
ich möchte eine variierende Anzahl Tabellenblätter in einem Schritt kopieren. Da die kopierten Blätter in gleicher Weise zueinander verknüpft sein sollen wie die ursprünglichen, kann beim Kopieren nicht mit einer Schleife programmiert werden, sondern müssen alle in einem Schritt kopiert werden.
Es sollen diejenigen Blätter kopiert werden, bei denen der Tabellenname wie der Eintrag in Zelle B35 beginnt. Für das Kopieren des ersten Tabellenblattes habe ich den Code geschrieben, welcher auch funktioniert. Dieser soll nun so angepasst werden, dass alle Tabellenblätter für die die Bedingung erfüllt ist kopiert werden.
Danke im Voraus
Private Sub Variable_für_TB_Namen_definieren_Click()
Dim wks As Worksheet
Dim Blatt(100) As String
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like Range("B35") & "*" Then
Blatt(i) = wks.Name
i = i + 1
End If
Next
Sheets(Blatt(0)).Copy after:=Sheets(Sheets.Count)
End Sub