Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Privat Sub Worksheet_Change

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige