PivotTables.Add in unsichtbarem Worksheet möglich?

Hallo liebe Exelianer,
ich komme bei folgender Frage nicht weiter:
Ich erzeuge zur Laufzeit Pivottabellen in einem Blatt 'PT_Sourcedata' als Grundlage für frei in anderen Blättern erzeugte Charts.
Das tue ich mit folgender Anweisung:


Set PtTable = wksPT_Target.PivotTables.Add(PivotCache:=ptCache, TableDestination:=rngPT_Target,  _
TableName:=strPT_Name)

So weit so gut.
Nun möchte ich aber das Blatt 'PT_Sourcedata' mit .visible = xlVeryHidden immer versteckt halten und bei versteckem Blatt bekomme ich Laufzeitfehler 1004.
Nun könnte ich mir damit behelfen, das Blatt direkt vor der .add-Anweisung einmal sichtbar zu machen, hoffe aber dennoch auf eine bessere Lösung.
Vielen Dank vorab für jeden hilfreichen Hinweis!
Viele Grüße
Zacharias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Zacharias,
grundsätzlich sollte das anlegen eines Pivotberichtes in einem ausgeblendeten Blatt funktionieren.
Du musst beachten:
1. In deinem Code dürfen keine Select-Anweisungen vorkommen, die auf Objekte (Zellen etc) in dem ausgeblendeten Blatt zugreifen.
2. An der Position (Zelle) an der der Pivot-Bericht eingefügt werden soll darf kein alter Pivotbericht vorhanden sein.
LG
Franz
Funktionierender Beispiel-Code:

Sub MakePivotTab()
Dim wksPT_Target As Worksheet
Dim ptCache As PivotCache
Dim strPT_Name As String
Dim rngPT_Target As Range
Dim ptTable As PivotTable
Dim wksData As Worksheet
'Pivot-Cache anlegen
Set wksData = ActiveWorkbook.Worksheets("Data")
With wksData
Set ptCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, .Range("A1:D14"))
End With
'Blatt und Ziel für Pivotbericht setzen
Set wksPT_Target = ActiveWorkbook.Worksheets("PT_Sourcedata")
Set rngPT_Target = wksPT_Target.Range("A5")
strPT_Name = "Auswertung01"
'Pivotbericht anlegen
Set ptTable = wksPT_Target.PivotTables.Add(PivotCache:=ptCache, TableDestination:= _
rngPT_Target, _
TableName:=strPT_Name)
'Pivotbericht aufbauen
With ptTable
.RowAxisLayout xlTabularRow
With .PivotFields("A")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("B")
.Orientation = xlColumnField
.Position = 1
End With
.AddDataField .PivotFields("C"), "Summe von C", xlSum
.AddDataField .PivotFields("D"), "Summe von D", xlSum
With .DataPivotField
.Orientation = xlRowField
.Position = 2
End With
End With
End Sub

Set ptCache = ThisWorkbook.PivotCaches.Add(SourceType:=PT_SourceType, SourceData:= _ rngPT_SourceData.Address(External:=True, ReferenceStyle:=xlR1C1)) With wksPT_Target .Visible = xlSheetVisible Set PtTable = .PivotTables.Add(PivotCache:=ptCache, TableDestination:=rngPT_Target, _ TableName:=strPT_Name) .Visible = xlSheetVeryHidden End With

With wksPT_Target intWksVisible = wksPT_Target.Visible booScreenupdating = Application.ScreenUpdating .Visible = xlSheetVisible Set PtTable = .PivotTables.Add(PivotCache:=ptCache, TableDestination:=rngPT_Target, _ TableName:=strPT_Name) .Visible = intWksVisible Application.ScreenUpdating = booScreenupdating End With

Beliebteste Forumthreads (12 Monate)

PivotTables.Add in unsichtbarem Worksheet möglich?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PivotTables.Add in unsichtbarem Worksheet möglich?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread