|
Hallo xlKing,
auch Dir vielen Dank für die Antwort!
hat leider nicht so ganz funktioniert :-(
Der zu filternde Wert ist in der Zelle J1 abgelegt. In einem vorherigen Makro-Schritt wird ein Wert "KundenNr" in die Zelle J1 abgelegt, der dann in 3 Weitere Tabellen
- "Auswahltabelle
- Fehlerliste
- Absetzliste
Als Filterkriterium eingetragen werden soll.
Vorab ist vielleicht auch zu erklären, dass ich meine Daten über 2 Wege bekomme.
Zum einen über den klassischen Weg "Einfügen" --> ""PivotTable" --> "Aus externer Datenquelle"; Betrifft die Tabellen 2 und 3;
Die Filterung für diese Tabellen funktioniert einwandfrei; Nachfolgend die Code-Sequenz.
' Zwischenspeicher in Tabelle Fehlerliste in Filter Kundennummer reinkopieren
ActiveSheet.PivotTables("Fehlerliste").PivotFields("KundenNr").ClearAllFilters
ActiveSheet.PivotTables("Fehlerliste").PivotFields("KundenNr").CurrentPage = [J1].Value
Die Daten für die Tabelle 1 ("Auswahltabelle") werden über PowerPivot aus Access als Datenmodell eingelesen, da ich hier verschiedene Measures für Quotenberechnungen benötige;
Hier schaut der Code etwas anders aus:
'Kundennummer aus Zelle J1 auslesen
Range("J1").Select
Selection.Copy
' Kundennummer als Filterkriterium in Pivottabelle "Auswahltabelle" einfügen
ActiveSheet.PivotTables("Auswahltabelle").PivotFields( _
"[qry_FehlerAusw_Export_KdNr_neu].[KdNr].[KdNr]").VisibleItemsList = Array( _
"[qry_FehlerAusw_Export_KdNr_neu].[KdNr].&[0A40796]")
Der gelb-hinterlegte Part sollte jetzt variabel sein und sich aus der Zelle "J1" den Vorgabewert ziehen.
quasi so: "[qry_FehlerAusw_Export_KdNr_neu].[KdNr]") & ([J1].Value)
Aber irgendwie kriege ich das nicht hin.
Über Hilfe würde ich mich sehr freuen :-)
Gruß
Roland
|