mit ?ActiveWorkbook.Worksheets.Count kann ich die Arbeitsblätter zählen, aber für die anderen beiden habe ich noch keine Lösung gefunden.
Sub Anzahl_der_Tables()
Dim A As String
Dim Anzahl As Integer
Anzahl = ActiveSheet.PivotTables.Count
A = MsgBox("Diese Arbeitsmappe hat " & Anzahl & _
" Tables.", vbOKOnly, "Tableanzahl")
End Sub
Sub aa()
Dim a As Integer, w As Worksheet
For Each w In Worksheets
a = a + w.PivotTables.Count
Next
MsgBox a & " Pivot-Tables"
End Sub