Aktion nach Kopie
27.09.2012 11:54:28
Philipp
Ich prüfe bei betätigen eines Buttons, ob ein Tabellenblatt bereist vorhanden ist mit diesem Code:
Dim NeuerTabellenName As String
NeuerTabellenName = ComboBox1.Value
'Tabelle kopieren und hinter der letzten Tabelle einfügen
Sheets("Template").Copy After:=Sheets(Sheets.count)
'Der neuen Tabelle den Namen der ComboBox geben
Sheets(Sheets.count).Name = NeuerTabellenName
Diese Tabelle beinhaltet eine Pivot-Tabelle, die ich mit einem aufgezeichneten Makro noch verändern möchte:
.Worksheets(NeuerTabellenName).PivotTables("Template").PivotFields("Produkt:").CurrentPage = _
"(All)"
With .Worksheets(NeuerTabellenName).PivotTables("Template").PivotFields("Produkt:")
.PivotItems("(blank)").Visible = False
.PivotItems(NeuerTabellenName).Visible = True
End With
Nur leider bekomme ich immer die Fehlermeldung "Unzulässiger oder nicht ausreichend definierter Verweis". Wenn diese Meldung kommt wurde das Tabellenblatt noch nicht kopiert obwohl der Code fürs kopieren an erster Stelle steht.
Könnt ihr mir helfen? :(