Office: Pivot Tabellen automatisch aktualisieren lassen

Sonnenlicht · 11. Januar 2017

Hi,

kann man Pivot-Tabellen automaotisch aktualisieren lassen, sobald man auf das Tabellenblatt klickt, welches die Pivot-Tabellen beinhaltet?

Oder kann man bei Excel in den Optionen irgendwo einstellen, dass bei öffnen der Datei sich die Pivot-Tabellen aktualisieren sollen?

Vielen Dank im Voraus!

Gruß Sonnenlicht *Sun

:)

Luschi · 13. Januar 2017

Hallo Sonnenlicht,

bei mir klappt das so: Code:

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Code habe ich mit dem Makrorekorder aufgezeichnet und dann in das entsprechende Ereignis für die Tabelle gepackt.

Gruß von Luschi
aus klein-Paris

PS: Name der Pivottabelle bitte entsprchend anpassen!

AndreaNoway · 13. Januar 2017

Nein, das kann man nicht einstellen.
Man kann es über ein Makro automatisieren, aber das ist dann abhängig von einigen Dingen... und über gewissen Umständen klappt nicht mal das.

Sonnenlicht · 14. Januar 2017

Hi,

Danke für eure Hilfe!

Danke vor allem Dir Luschi, es klappt bei mir.

Gruß Sonnenlicht*Sun

Sonnenlicht · 14. Januar 2017

Hi,

gibt leider doch ein kleines Problem*frown.gif*

Kann man den Code
Code:

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vom Blattschutz ausschließen?

Habe es so versucht, funktioniert aber leider nicht
Code:

Worksheets("Tabelle1").Protect Password:="A", UserInterfaceOnly:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke! Gruß Sonnenlicht*Sun

Sonnenlicht · 15. Januar 2017

Hi,

hat keiner eine Idee?

Gruß Sonnenlicht*frown.gif*

Sonnenlicht · 15. Januar 2017

Hi,

also mit folgendem Code im Tabellenblatt wo sich die Pivot-Tabellen befinden klappt es:

Code:

'Private Sub Worksheet_Activate()
'ActiveSheet.Unprotect Password:="A"
'ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
'ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
'ActiveSheet.Protect Password:="A"
'End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt möchte ich aber den Blattschutz mit einen Zetralen-Button auf einem anderen Tabellenblatt aufheben (und wieder setzen).

Hier der mein bisheriger Blattschutz Code:

DieseArbeitsmappe

Code:

Option Explicit

Private Sub Workbook_Open()
Worksheets("Blattschutz1").Activate
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' etwa ungeschütztes Blatt BS_PW_x schützen
Worksheets("BS_PW_1").Protect Password:=pPSWD1
Worksheets("BS_PW_2").Protect Password:=pPSWD2
Worksheets("BS_PW_3").Protect Password:=pPSWD3
Worksheets("BS_PW_4").Protect Password:=pPSWD4

Worksheets("Blattschutz1").Activate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'--------------------------------------------------------------------
' Aufheben Blattschutz BS_PW 1, 2, 3 oder 4 nach Aktivieren
' des Blattes
'--------------------------------------------------------------------

' check, ob Blatt überhaupt geschützt ist
If Sh.ProtectContents = False Then Exit Sub ' nicht geschützt

' check, ob und ggf welches BS_PW-Blatt angeklickt wurde
Select Case Sh.Name
Case Is = "BS_PW_1"
PSWD_BSPW = pPSWD1
Case Is = "BS_PW_2"
PSWD_BSPW = pPSWD2
Case Is = "BS_PW_3"
PSWD_BSPW = pPSWD3
Case Is = "BS_PW_4"
PSWD_BSPW = pPSWD4

Case Else
Exit Sub ' kein BS_PW-Blatt
End Select

' Password erfassen und Blattschutz aufheben
UserForm1.Show
If PSWD_ok = True Then
Sh.Unprotect Password:=PSWD_BSPW
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tabelle1(Blattschutz1)

Code:

Option Explicit

' Version V2 vom 02.01.2017

Private Sub CommandButton1_Click() ' alle Schutzmaßnahmen aus
'--------------------------------------------------------------------
' Aufheben aller Schutzmaßnahmen mit Hilfe des Master-Pswd
'--------------------------------------------------------------------

' check, ob Blatt überhaupt geschützt ist
With ActiveSheet
If .ProtectContents = False Then Exit Sub ' nicht geschützt
PSWD_BSPW = pPSWD5 ' Master-Pswd

' Password erfassen und Blattschutz aufheben
UserForm1.Show
If PSWD_ok = True Then
.Unprotect Password:=PSWD_BSPW
End If
End With

' Schutzmaßnahmen aktivieren
ThisWorkbook.Unprotect Password:=pPSWD5

Worksheets("Blattschutz1").Unprotect Password:=pPSWD5
Worksheets("Blattschutz2").Unprotect Password:=pPSWD5

Worksheets("BS_PW_1").Unprotect Password:=pPSWD1
Worksheets("BS_PW_2").Unprotect Password:=pPSWD2
Worksheets("BS_PW_3").Unprotect Password:=pPSWD3
Worksheets("BS_PW_4").Unprotect Password:=pPSWD4

Worksheets("Unsichtbar1").Visible = True
Worksheets("Unsichtbar2").Visible = True
Worksheets("Unsichtbar3").Visible = True
Worksheets("Unsichtbar4").Visible = True

' CommandButtons
CommandButton2.Visible = True
CommandButton1.Visible = False
End Sub

Private Sub CommandButton2_Click() ' Schutz einrichten
'--------------------------------------------------------------------
' Arbeitsmappe und Blätter schützen
'--------------------------------------------------------------------

' CommandButtons
CommandButton1.Visible = True
CommandButton2.Visible = False

' Blätter schützen
Worksheets("Blattschutz1").Protect Password:=pPSWD5
Worksheets("Blattschutz2").Protect Password:=pPSWD5

Worksheets("BS_PW_1").Protect Password:=pPSWD1
Worksheets("BS_PW_2").Protect Password:=pPSWD2
Worksheets("BS_PW_3").Protect Password:=pPSWD3
Worksheets("BS_PW_4").Protect Password:=pPSWD4

' bestimmte Blätter ausblenden
If Worksheets("Unsichtbar1").Visible = True Then Worksheets("Unsichtbar1").Visible = xlVeryHidden
If Worksheets("Unsichtbar2").Visible = True Then Worksheets("Unsichtbar2").Visible = xlVeryHidden
If Worksheets("Unsichtbar3").Visible = True Then Worksheets("Unsichtbar3").Visible = xlVeryHidden
If Worksheets("Unsichtbar4").Visible = True Then Worksheets("Unsichtbar4").Visible = xlVeryHidden

'Arbeitsmappe schützen
ThisWorkbook.Protect Password:=pPSWD5, Structure:=True, Windows:=False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Modul

Code:

Option Explicit

Public PSWD_ok As Boolean ' Schalter True = gültiges Password eingegeben
Public PSWD_BSPW As String ' Password für ausgewähltes BS_PW Blatt

' Passwords
Public Const pPSWD1 As String = "aloys1" ' BS_PW_1
Public Const pPSWD2 As String = "aloys2" ' BS_PW_2
Public Const pPSWD3 As String = "aloys3" ' BS_PW_3
Public Const pPSWD4 As String = "aloys4" ' BS_PW_4
Public Const pPSWD5 As Variant = "aloys5" ' Master-PSWD
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank im Voraus!

Pivot-tabellen befinden sich in Tabelle2(Blattschutz2)

Gruß Sonnenlicht

Luschi · 15. Januar 2017

Hallo Sonnenlicht,

laut Vba-Hilfe (F1-Taste), schützt 'UserInterfaceOnly:=True' die Oberfläche der Tabellen. Da das Aktualisieren des PivotCaches aber die Pivottabelle neu zeichnet und damit an die Oberläche ran muß, funktioniert dieser Befehl auch nicht bei gesetztem Blattschutz - trotz UserInterfaceOnly.
Das sieht man auch daran, daß bei gesetztem Blattschutz die Ribbon-Tabs 'ANALYSIEREN' & 'ENTWURF' nicht zur Verfügung stehen und ausgeblendet sind und somit auch per Maus das Aktualisieren der Pivottabelle nicht möglich ist..

Gruß von Luschi
aus klein-Paris

Sonnenlicht · 15. Januar 2017

Hi,

mir würde es reichen, wenn sich die Pivottabellen erst aktualisieren, wenn man den Blattschutz aufgehoben hat. Würde das irgendwie gehen?
Da das Blatt in welchem sich die Pivottabellen befinden geschützt werden muss.
Es würde ansonsten über einen Button gehen?
Nur irgendwie muss das Blatt geschützt sein und irgend mussen sich die Pivotabellen aktualisieren, ohne jede Pivottabelle einzelnd anzuklicken.

Gruß Sonnenlicht

Office: Pivot Tabellen automatisch aktualisieren lassen

Pivot Tabellen automatisch aktualisieren lassen

Pivot Tabellen automatisch aktualisieren lassen

Pivot Tabellen automatisch aktualisieren lassen

Pivot Tabellen automatisch aktualisieren lassen

Pivot Tabellen automatisch aktualisieren lassen - Similar Threads - Pivot Tabellen automatisch

Provisions-Berechnung mit Pivot-Tabelle

Pivot-Tabelle: Gesamtsummen sortierbar machen?

Pivot Tabelle

(2021) Pivot-Tabelle: mehrere Spalten als eine behandeln

Tabelle strukturieren Angebote, Aufträge, Rechnungen, Buchung

Pivot Tabelle mit leeren Arbeitsblättern?

Pivot-Tabellen bei Änderung auf Reiter automatisch aktualisieren?