Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Privat Sub Worksheet_Change
Karsten
Hallo libe Excel Freunde,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Privat Sub Worksheet_Change
23.11.2010 17:00:28
Renee
Hallo Karsten,
Habt Ihr eine Ahnung woran das liegen könnte?

Ja, an
Target.Address.Bericht
, denn eine solche Eigenschaft gibt es schlicht nicht!
Also:
 If Target.Address= "$A$1" And Target.Value = "1" _
Then Call Pivot_alle_aktivieren
End If

GreetZ Renée
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige