war gestern schon nach der Suche nach einer Lösung zu meinem Problem. Hab gestern den ganzen Tag noch rumprobiert, aber irgendwie funktioniert nicht ein einziger Lösungsversuch....
Sub Pivot_Neu()
Dim ptCache As PivotCache
Dim pt As PivotTable
On Error GoTo Errorhandler
Selection.AutoFilter Field:=13, Criteria1:="offen"
Set ptCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="A:M" & _
ActiveSheet.UsedRange.Rows.Count)
Set pt = ptCache.CreatePivotTable _
(TableDestination:=" ", _
TableName:="MyPivotTable")
With pt
.PivotFields("MASSN_ID").Orientation = xlRowField
.PivotFields("BEA/BEF-Nr.").Orientation = xlRowField
.PivotFields("Summe von BEA/BEF-Nr.").Orientation = xlRowField
End With
Set ptCache = Nothing
Set pt = Nothing
Exit Sub
Errorhandler:
MsgBox ("Die Pivot Tabelle besteht bereits")
End Sub
Das Problem ist, dass gleich die MsgBox hochploppt, obwohl keine einzige Pivot Tabelle existiert.... :(Also für Hilfen und Tipps wäre ich wirklich sehr sehr dankbar...