Thema Datum  Von Nutzer Rating
Antwort
08.08.2022 19:50:01 Johannes
*
Solved
08.08.2022 19:51:06 Johannes
Solved
22.04.2025 15:47:52 Roland
NotSolved
23.04.2025 07:10:39 ralf_b
Solved
23.04.2025 07:53:47 Roland
NotSolved
23.04.2025 18:49:53 xlKing
*****
Solved
24.04.2025 07:42:54 Roland
NotSolved
24.04.2025 18:47:11 Gast35149
*****
Solved
25.04.2025 06:45:34 Roland
NotSolved
25.04.2025 17:19:26 xlKing
*****
Solved
Rot Rot Pivotfilter über Zelle Steuern
05.05.2025 06:26:11 Roland
NotSolved
23.04.2025 11:08:06 Gast60669
Solved
23.04.2025 12:38:25 Roland
NotSolved

Ansicht des Beitrags:
Von:
Roland
Datum:
05.05.2025 06:26:11
Views:
40
Rating: Antwort:
  Ja
Thema:
Pivotfilter über Zelle Steuern

Guten Morgen xlKing,

vielen Dank nochmals für Deine Hilfe! smiley
Auch Sorry für die späte Antwort; Ich hatte letzte Woche Urlaub.

Ich habe mein Problem mit Hilfe eines anderen Users / anderes Forum gelöst bekommen.
Allerdings auf einen ganz anderen Weg, den ich nachfolgend aufgeführt habe.

Dir auf alle Fälle vielen lieben Dank für Deine Zeit und Unterstützung bei der Lösungssuche!!!!!!!! 

Gruß
Roland

' Für Tabellenblatt "Pivot_Uebersicht" übertragen der Kundennummer von Zelle F1 zum Pivot-Filter

    Dim ws As Worksheet
    Dim kdNr As String
    Dim filterString As String

    Set ws = ThisWorkbook.Sheets("Pivot_Uebersicht")
    
    kdNr = CStr(ws.Range("F1").Value)
    
   ' Filterstring für PowerPivot-Feld zusammensetzen
    filterString = "[qry_FehlerAusw_Export_KdNr_neu].[KdNr].&[" & kdNr & "]"
    
    ' Pivot-Filter setzen
    With ws.PivotTables("Auswahltabelle").PivotFields( _
        "[qry_FehlerAusw_Export_KdNr_neu].[KdNr].[KdNr]")
        
        .ClearAllFilters
        .VisibleItemsList = Array(filterString)
    End With
    
    ' Optional: Zurück auf A1 springen
    ws.Range("A1").Select
    
    Range("A1").Select
    
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
08.08.2022 19:50:01 Johannes
*
Solved
08.08.2022 19:51:06 Johannes
Solved
22.04.2025 15:47:52 Roland
NotSolved
23.04.2025 07:10:39 ralf_b
Solved
23.04.2025 07:53:47 Roland
NotSolved
23.04.2025 18:49:53 xlKing
*****
Solved
24.04.2025 07:42:54 Roland
NotSolved
24.04.2025 18:47:11 Gast35149
*****
Solved
25.04.2025 06:45:34 Roland
NotSolved
25.04.2025 17:19:26 xlKing
*****
Solved
Rot Rot Pivotfilter über Zelle Steuern
05.05.2025 06:26:11 Roland
NotSolved
23.04.2025 11:08:06 Gast60669
Solved
23.04.2025 12:38:25 Roland
NotSolved