Office: Pivot Tabelle: Zeile nur anzeigen, wenn Bedinung erfüllt ist

Hallo zusammen,
Ich habe einen Datensatz von einer Zeltlageranmeldung mit vielen verschiedenen Einträgen. Für Übersichtsdokumente möchte ich jedem Verband seine Teilnehmer anzeigen, also nur einen kleinen Teil der verüfgbaren Spalten. Dafür möchte ich gerne in einer Pivot Tabelle die Einträge nur anzeigen, wenn der Verbandname in einer Zelle steht. Über ein Makro kann ich dann für jeden Verband das Tabellenblatt einzeln drucken. Ich hänge einen kleinen Beispielsatz mit dem Makro an, bei dem aber der Filter nicht existiert.
Viele Grüße
Joko

 

Moin Joko,

Du hast doch in Deiner Anfrage schon die Lösung genannt: Filtern.

Jetzt schmeißt Du den Makrorekorder an, setzt einen beispielhaften Filter für einen Verband und druckst den Auszug. Dann kannst Du -entsprechende VBA-Grundkenntnisse vorausgesetzt- dieses Makro auf die tatsächlich benötigten Funktionen reduzieren, verallgemeinern und pro Landesverband angepasst anlegen.

Als verbesserte Version kannst Du die Filter-Bedingungen auch aus der Zelle mit dem aktuellen Verbandsnamen holen und die verschiedenen Bedingungen in einem Makro per Select Case steuern.

Dadurch ersparst Du Dir zusätzliche Tabellenblätter und die Ein/Ausblenderei der nicht benötigten Daten.

Alternativ: Definiere den Landesverband als Sortierschlüssel und setze passende Druckbereiche.

Grüße

 

Danke für deine Hilfe. Ich habe jetzt ein ganz akzeptables Ergebnis in meinem Beispieldatensatz hinbekommen, mit dem ich zufrieden bin:

Sub AlleDrucken2()
Dim Zelle As Range
For Each Zelle In Tabelle2.Range("J5").SpillingToRange
Range("I5") = Zelle
ActiveSheet.PivotTables("PivotTable1").PivotFields("Verband").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Verband").CurrentPage = Tabelle2.Range("I5").Value
Tabelle2.PrintOut
'MsgBox "Drucke " & Zelle
Next Zelle
End Sub

Leider klappt es mit meinem richtigen Datensatz noch nicht, da dort die Makroaufzeichnung für den Filter deutlich mehr aufzeichnet:

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").CurrentPageName = _
"[Einzelanmeldung].[Gruppenname].&[A]"

Weiß jemand, woran das liegt bzw. was ich hinter dem Gleichzeichen schreiben muss? Daran hakt es aktuell. Falls es relevant ist. In meinem kompletten Datensatz habe ich ein Datenmodell erstellt, um die Daten einfacher aktualsieren zu können.

Viele Grüße
Joko

 

Moin,

ich geh mal davon, dass Du das = in der zweitletzten Zeile des Codes meinst: CurrentPageName = _
Der Trick in VBA ist, dass der Unterstrich als letztes Zeichen in einer Zeile (auch denen davor) den Code in der nächsten Zeile fortsetzt, also schon die Zuweisung eines Wertes erfüllt.

Grüße

 

Alles klar. Durch was ersetze ich denn genau &[A]" in der letzten Zeile? Wenn ich es durch Tabelle2.Range("I5").Value ersetze, bekomme ich einen Synthax Fehler.
Viele Grüße
Joko

 

Zeige mal die ganze (unter Einbeziehung der Unterstriche) die ganze Zeile. Sonst sind die Möglichkeiten für Syntaxfehler nicht erkennbar.
Gruß

 

Hallo d'r Basler,
mein aufgezeichnetes Makro ist folgendes:

Sub Makro2()
'
' Makro2 Makro
'

'
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").CurrentPageName = _
"[Einzelanmeldung].[Gruppenname].&[A]"
End Sub

Meine Idee zur Anpassung meines existierendes Makros ist folgende, welche aber nicht funktioniert (Laufzeitfehler '1004' Die PivotFields-Eigenschaft des PivotTable-Objektes kann nicht zugeordnet werden.)

Sub Drucken1()
Dim Zelle As Range
For Each Zelle In Tabelle7.Range("L4").SpillingToRange
Range("K4") = Zelle
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Gruppenname").CurrentPage = Tabelle7.Range("K4").Value
Tabelle7.PrintOut
'MsgBox "Drucke " & Zelle
Next Zelle
End Sub

Den Syntaxfehler habe ich bekommen, als ich versucht habe in der letzen Zeile &[A]" durch Tabelle7.Range("K4").Value zu ersetzen.

Viele Grüße Joko

 

Ich habe mein Problem lössen können:

Mein Code lautet nun:
Sub Drucken1()
Dim Zelle As Range
For Each Zelle In Tabelle7.Range("L4").SpillingToRange
Range("K4") = Zelle
GruppennameAusgelesen = ActiveWorkbook.Sheets(NameHilfsblatt).Range(ZelleDropDown).Value ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Einzelanmeldung].[Gruppenname].[Gruppenname]").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Gruppenname").CurrentPage = "[Einzelanmeldung].[Gruppenname (berechnet)].&[" & GruppennameAusgelesen & "]"
Tabelle7.PrintOut
'MsgBox "Drucke " & Zelle
Next Zelle
End Sub

Die Variable GruppennameAusgelesen wird am Anfang jedes Schleifendurchlaufes ausgelesen. Durch " & lassen sich auch Variablen innerhalb eines Strings einfügen.
Vielen Dank für die Hilfe

 

Erfreuliche Nachrichten!!
Schönen Abend!