Privat Sub Worksheet_Change
Karsten
ich möchte gern ein Macro automatisch beim Öffnen der Excel Datei ausführen lassen um in einem Pivot Bericht "alle" auszuwählen . Dies habe ich über das Ereignis Worksheet_Change versucht bekomme aber nicht das korrekte Ergebnis. Auch ändert sich nichts an dem Zustand wenn ich die Zelle A1 vom Wert 0 aus den Wert 1 ändere!
Habt Ihr eine Ahnung woran das liegen könnte?
'diese PrivatSub überwacht die Zelle A1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address.Bericht = "$A$1" And Target.Value = "1" _
Then Call Pivot_alle_aktivieren
End If
End Sub
Sub Pivot_alle_aktivieren()'Bestimmung Konstanten und Variablen
Const Blatt1 = "Bericht"
Const Blatt2 = "SAP"
Dim pi As PivotItem
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Pivotbericht alle Werte aktivieren; 'alle Einträge bis auf "Leer" deaktivieren
Sheets(Blatt1).Activate
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Monat Jahr").CurrentPage = "(Alle)"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kunde").CurrentPage = "(Alle)"
ActiveSheet.PivotTables("PivotTable1").PivotFields("ECC WEA Nr").CurrentPage = "(Alle)"
'wieder einschalten
Application.ScreenUpdating = True
End Sub
Danke im vorraus Karsten
Anzeige