Thema Datum  Von Nutzer Rating
Antwort
09.02.2021 11:19:32 Julian S.
NotSolved
Blau PivotTabelle unter Blattschutz aktualisieren
 18.02.2021 00:58:52 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
18.02.2021 00:58:52		 Views:
206		 Rating:
     
Antwort:
  Ja
Thema:
PivotTabelle unter Blattschutz aktualisieren

Hallo Julian,

Dein Code sieht soweit schlüssig aus. Er passt nur nicht zu deiner Aussage, nur die Pivottable im Blatt Übersicht zu aktualisieren. Stattdessen gehst du beim Aktivieren eines beliebigen Blattes alle Blätter durch. Wenn du auf ein Blatt triffst das nicht schreibgeschützt ist, dürfte ein Fehler kommen, da pt im Else Block nicht gesetzt ist. (Der For Each Block drumrum fehlt). Wenn du also nur das Blatt Übersicht aktualisieren willst, sobald dieses aktiviert wird, solltest du den Parameter Sh mit einbeziehen. Probiers mal im Modul ThisWorkbook so (ungetestet):

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim ws As Worksheet
    Dim pT As PivotTable

    If Sh.Name = "Übersicht" Then
        If ws.ProtectContents = True Then
            ws.Unprotect "pw"
            For Each pT In ws.PivotTables
               pT.RefreshTable
            Next
            ws.Protect "pw"
        Else
             For Each pT In ws.PivotTables
               pT.RefreshTable
            Next
        End If
    End If

End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.02.2021 11:19:32 Julian S.
NotSolved
Blau PivotTabelle unter Blattschutz aktualisieren
 18.02.2021 00:58:52 xlKing
NotSolved