Tabellenblatt duplizieren und benennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub VorlageKopieren() Dim strName As String strName = Application.InputBox("Tabellenname:", "Namen eingeben", , , , , , 2) If strName "Falsch" Then Sheets("Vorlage").Copy after:=Sheets(Sheets.Count) With Sheets(Sheets.Count) .Name = strName .ListObjects(1).Name = strName End With End If End Sub

Guten Morgen,
vielen Dank für die Zusammenfassung. Das Kopieren des Vorlageblatts klappt sehr gut. Besten Dank. Ich habe jedoch folgendes Problem:
Im Tabellenblatt Vorlage sind insgesamt 3 intelligente Tabellen sowie 2 kleine Pivot-Auswertungstabellen. Die Pivots haben als Datenquelle eine der 3 intelligenten Tabellen.
Wenn ich jetzt das Tabellenblatt Vorlage kopiere, verweist die Datenquelle der Pivots im kopierten Blatt weiterhin auf die Tabelle in der Vorlage. Daher meine Frage, kann man die Vorlage so kopieren, dass das kopierte Blatt als eigenständige Kopie arbeitet (d.h. keine Referenzen auf die Vorlage mehr hat)? Aktuell heißen die Tabellen in der Vorlage wie folgt:
Namen der Intelligente Tabellen
Tab_Vorlage_1
Tab_Vorlage_2
Tab_Vorlage_3
Namen der Pivots
Pivot_Vorlage_1 (Datenquelle Tab_Vorlage_1)
Pivot_Vorlage_2 (Datenquelle Tab_Vorlage_1)
Ich stell mir das so vor, dass im kopierten Blatt die Namen der Tabellen dann von Vorlage entsprechend auf Kopie 1, Kopie2 usw. umbenannt werden und die Datenquelle der Pivot dann mitwandert. Geht das?
Zudem habe ich noch 2 weitere Fragen:

Kann die Farbe des neu kopierten Blattes beim kopieren auf die Farbe rot gesetzt werden?

In der Tabelle Tab_Vorlage_1 ist ein Autofilter gesetzt. Gibt es einen VBA-Code, der den Autofilter im aktuellen Blatt automatisch aktualisiert, wenn Änderungen der zugrundeliegenden Daten erfolgen?

Vielen Dank vorab und sorry für das scheibchenweise Nachreichen von Fragen
Beste Grüße
XYZ

With Sheets(Sheets.Count) .Tab.Color = vbRed 'Tab rot .ListObjects(1).Name = "tab_Kopie_1" .PivotTables(1).ChangePivotCache _ ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=ActiveSheet.ListObjects(1).Name, _ Version:=8) .ListObjects(2).Name = "tab_Kopie_2" .PivotTables(2).ChangePivotCache _ ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=ActiveSheet.ListObjects(2).Name, _ Version:=8) End With

Das funktioniert leider nicht. Die Ausführung des Codes wird mit "Laufzeitfehler 5" abgebrochen. Die Datenquelle bei den Pivots der Blattkopie verweist weiterhin auf die Vorlage. Beim Debuggen wird der Teil des Codes gelb markiert:


 .PivotTables(1).ChangePivotCache _
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=ActiveSheet.ListObjects(1).Name, _
Version:=8)

So sieht der Code jetzt komplett aus:


Sub VorlageKopieren()
Dim strName As String
strName = Application.InputBox("Tabellenname:", "Namen eingeben", , , , , , 2)
If strName  "Falsch" Then
Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = strName
.ListObjects(1).Name = strName
End With
End If
With Sheets(Sheets.Count)
.Tab.Color = vbRed         'Tab rot
.ListObjects(1).Name = "tab_Kopie_1"
.PivotTables(1).ChangePivotCache _
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=ActiveSheet.ListObjects(1).Name, _
Version:=8)
.ListObjects(2).Name = "tab_Kopie_2"
.PivotTables(2).ChangePivotCache _
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=ActiveSheet.ListObjects(2).Name, _
Version:=8)
End With
End Sub

Für mein laienhaftes Verständnis, müssten die Namen in der Blattkopie nicht "relativ" definiert werden. Es sollen in der Arbeitsdatei ja mehrere Kopien der Vorlage erstellt werden.
Also so in der Vorlage:
Namen der Intelligente Tabellen

Tab_Vorlage_1

Tab_Vorlage_2

Tab_Vorlage_3

Namen der Pivots

Pivot_Vorlage_1 (Datenquelle: Tab_Vorlage_1)

Pivot_Vorlage_2 (Datenquelle: Tab_Vorlage_1)

So in Kopie 1:
Namen der Intelligente Tabellen

Tab_ Kopie01_1

Tab_ Kopie01_2

Tab_ Kopie01_3

Namen der Pivots

Pivot_ Kopie01_1 (Datenquelle: Tab_Kopie01_1)

Pivot_ Kopie01_2 (Datenquelle: Tab_Kopie01_1)

So in Kopie 2 (usw):
Namen der Intelligente Tabellen

Tab_ Kopie02_1

Tab_ Kopie02_2

Tab_ Kopie02_3

Namen der Pivots

Pivot_ Kopie02_1 (Datenquelle: Tab_Kopie02_1)

Pivot_ Kopie02_2 (Datenquelle: Tab_Kopie02_1)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt duplizieren und benennen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt duplizieren und benennen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread