Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Filter ansteuern und automatisch updaten
06.04.2023 21:39:06 Frank
NotSolved
06.04.2023 22:51:40 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Frank
Datum:
06.04.2023 21:39:06
Views:
605
Rating: Antwort:
  Ja
Thema:
Pivot Filter ansteuern und automatisch updaten

So, brauche als VBA-Dummie auch einmal Hilfe.

Habe eine Zelle in Excel, die den Filter eines Pivots ansteuert (Makro siehe unten). Diese Zelle (hier B1) erhält die Werte durch Referenz ("=Report!BZ4") auf ein anderes Tabellenblatt (durchlaufende Werte duch Stapelverarbeitung eines zweiten Makros gesteuert).

Die Herausforderung ist, dass der Wert in B1 nicht durch Änderung des Zellinhalts durch das zweite Makro den Pivot-Filter ansteuert. Ich muss in die Zelle B1 klicken und nochmals bestätigen, damit die FIlter angesteuert werden (natürlich vollkommen ungeeignet für eine Stapelverarbeitung.

Wer weiß Rat?!       

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
               
    Set xPTable = Worksheets("Reporting_Data_MO").PivotTables("SenseNew")
    Set xPFile = xPTable.PivotFields("OU")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True

    
End Sub
 


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
Rot Pivot Filter ansteuern und automatisch updaten
06.04.2023 21:39:06 Frank
NotSolved
06.04.2023 22:51:40 ralf_b
NotSolved