Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Seitenfeld von - bis

Pivot Seitenfeld von - bis
08.12.2004 13:54:25
-
Guten Tag,
derzeit arbeite ich an der Darstellung der Verkäufe
einzelner Artikel bzw. Artikelgruppen in regionalen
Märkten.
Ich stelle dies mit einer Pivottabelle dar, in deren
Spaltenköpfen VK-Stück / Erlös / usw. stehen.
In den Zeilenköpfen befinden sich dann die Namen der
lokalen Märkte.
Soweit so gut.
Über die Seitenfelder möchte ich einen der Lieferanten
dieser Artikel auswählen. Dies gelingt.
Im zweiten Seitenfeld möchte ich dann den Artikel aus-
wählen, der angezeigt werden soll. Auch das gelingt.
Wenn ich nun allerdings mehrere Artikel eines Lieferanten
gleichzeitig anzeigen will, wird mir meine Tabelle in der
Breite zu groß, weshalb auch nur die Summme dieser Artikel
interessiert.
Die Frage lautet daher :
Ist es möglich im Seitenfeld nicht nur einen, sondern
mehrere Artikel auszuwählen ?
So nach dem Prinzip des Autofilters (Artikelnummer liegt
zwischen 204011 und 204015 ?)
Denn so kann ich ja nur auf einen einzelnen Artikel zugreifen :
ActiveSheet.PivotTables("PivotTable1").PivotFields("Heft (HFT)").CurrentPage = _
"204011"
Vielen Dank schonmal
R.Schmitt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot Seitenfeld von - bis
-
Hallo R.Schmitt,
ja das geht mit
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Heft (HFT)")
.PivotItems("1").Visible = True
.PivotItems("...").Visible = True
.PivotItems("N").Visible = True
End With
wobei 1...N für die entsprechenden Elemente steht. Vorher allerdings alle auf False setzen.
Hier ein Beispiel für einen Filter
Option Explicit

Sub Filter()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Call PivotFilter("Belegnr", Array("AB010372", "AB010369"))
Call PivotFilter("ProjNr", Array("502258", "502259", "503119"))
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub



Sub PivotFilter(Feld$, Elemente As Variant)
Dim pi As PivotItem
On Error Resume Next
For Each pi In ActiveSheet.PivotTables("PivotTable1").PivotFields(Feld).PivotItems
pi.Visible = (MyMatch(pi.Name, Elemente) <> 0)
Next
End Sub



Function MyMatch(Was, Worin) As Long
On Error GoTo Fehler
MyMatch = WorksheetFunction.Match(Was, Worin, 0)
Exit Function
Fehler:
MyMatch = 0
End Function

Gruß Coach
Anzeige
AW: Pivot Seitenfeld von - bis
09.12.2004 16:55:01
-
Lieber Coach
ich danke dir recht herzlich für die Mühe.
Soweit ich es beim Überfliegen beurteilen
kann,hilft mir das schonmal weiter. Genau
kann ich es leider erst kommende Woche sagen.
Vorher komme ich einfach nicht dazu, es mal
zu testen.
Falls Du nichts mehr von mr hörst, kannst Du
davon ausgehen, dass es erfolgreich läuft.
Im Zweifelsfall würde ich mich aber nochmal
gerne rühren.
Viele Grüße
R.Schmitt

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige