Tabellenblätter einfügen und umbenennen
28.08.2021 21:28:31
T_s
für eine Auswertung erstelle ich mehrer PivotTables. Dafür baue ich eine Basis und mag diese dann in verschiedene benannte Tabellenblätter einfügen. Bspw. kopiere ich eine PivotTable und erzeuge das Tabellenblatt A. Jetzt möchte ich nicht nur Tabellenblatt A sondern auch Tabellenblatt B,C,D,E,F... erzeugen. Ich habe schon einen Lösungsansatz per Liste gelesen, dass die Tabellenblattnamen in einem Sheet aufgelistet werden sollen und anschließend erstellt werden. Ich möchte allerdings die zu erzeugenden Namen ausschließlich im Code aufgelistet haben. Gibt es dafür bpsw. eine If Anweisung?
Mit folgendem Code arbeite ich zur Erstellung von Tabellenblatt A:
Sub CreatingA()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim PT As PivotTable
Dim ws As Worksheet
Set ws = Worksheets("PivotTable")
'Blattname festlegen
BlattName = "A"
'Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = BlattName Then bolFlg = True
Next blatt
'Blatt nur einfügen, wenn noch nicht vorhanden
If bolFlg = False Then
With ThisWorkbook
.Sheets.Add After:=Sheets(Worksheets.Count)
.ActiveSheet.Name = "A"
End With
End If
Worksheets("PivotTable").PivotTables("Monatsauswertung").TableRange2.Copy Destination:=Worksheets("A").Range("B2")
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Grüße
Tobi
Anzeige