Pivot Tabelle erstellen
16.01.2008 07:05:00
Hans-Joachim
guten morgen zusammen, ich habe ein kleines Problem ich habe eine Pivot-Tabelle erstellt um einige Fehler auswerten zu können klappt auch so weit mit einem haken, wenn ich das Makro starte erstellt es mir immer wieder eine Tabelle. Ich möchte das aber in ein vorhandenes Tabellenblatt einfügen wo ist mein Fehler in dem Makro oder wie kann ich es besser machen habe mal ein wenig Code hier. Bin für jede Anregung dankbar.
Sub Pivot_Bericht()
ActiveWorkbook.Unprotect "meinPasswort"
Sheets("PivotBericht").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Fehlerprotokolle").Select
Dim ptCache As PivotCache: Dim pt As PivotTable: Dim Bereich As Range
On Error GoTo Errorhandler
Set ptCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Fehlerprotokolle!R1C1:R133C25")
Set pt = ptCache.CreatePivotTable _
(TableDestination:="", _
TableName:="PivotBericht")
With pt
.PivotFields("Fehlermeldung").Orientation = xlRowField
.PivotFields("Status").Orientation = xlColumnField
.PivotFields("Team").Orientation = xlPageField
.PivotFields("Fehlermeldung").Orientation = xlDataField
End With
Set ptCache = Nothing
Set pt = Nothing
Exit Sub
Errorhandler:
MsgBox ("Die Pivot-Tabelle besteht bereits")
End Sub
Anzeige