Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenschnitt Filter per VBA setzen

Forumthread: Datenschnitt Filter per VBA setzen

Datenschnitt Filter per VBA setzen
05.07.2016 09:01:22
Andreas
Hallo liebe Excel Profis,
Ich möchte gerne bei einem Datenschnitt den Filter per VBA setzen.
Das Filterkriterium steht in einer Zelle (z.B. A1)
Leider habe ich keinen Ansatz um den Filter im Datenschnitt sinnvoll zu setzen und im Netzt habe ich bis jetzt auch nichts für mich verwertbares gefunden.
Der Makro Recorder liefert leider keine passende Lösung.
Hat vielleicht einer von euch eine Idee wie man den Filter ansteuert?
viele Grüße
Andreas

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenschnitt Filter per VBA setzen
05.07.2016 10:18:10
Michael
Hallo Andreas!
Es ist nicht ganz trivial mit den PivotTabellen-Datenschnitten in VBA zu arbeiten. Eine sehr gute Ressource dazu (wie ich meine) findest Du hier: http://www.jkp-ads.com/Articles/slicers00.asp von Jan Karel Pieterse (Excel MVP); es gibt ein eigenes Kapitel "Slicers and VBA".
LG
Michael
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Datenschnitt Filter per VBA setzen

Schritt-für-Schritt-Anleitung

Um einen Datenschnitt in Excel per VBA zu filtern, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster und wähle Einfügen > Modul.

  3. Zeige den Code für den Datenschnitt an: Füge den folgenden Code in das Modul ein:

    Sub FilterDatenschnitt()
   Dim ws As Worksheet
   Dim pivotTable As PivotTable
   Dim slicer As Slicer
   Dim filterValue As String

   ' Arbeitsblatt und PivotTable festlegen
   Set ws = ThisWorkbook.Sheets("DeinSheetName")
   Set pivotTable = ws.PivotTables("DeinPivotTableName")

   ' Filterwert aus Zelle A1
   filterValue = ws.Range("A1").Value

   ' Slicer festlegen
   Set slicer = ws.SlicerCaches("DeinSlicerName").Slicers(1)

   ' Filter anwenden
   slicer.SlicerItems(filterValue).Selected = True
End Sub

  4. Ersetze die Platzhalter: Achte darauf, DeinSheetName, DeinPivotTableName und DeinSlicerName durch die tatsächlichen Namen zu ersetzen.

  5. Führe das Makro aus: Drücke F5, um das Makro auszuführen oder wechsle zurück zu Excel und starte das Makro über Entwicklertools > Makros.

Häufige Fehler und Lösungen

  • Excel Datenschnitt keine Verbindung gefunden: Überprüfe, ob der Datenschnitt mit der PivotTable verbunden ist. Stelle sicher, dass der Slicer den richtigen Datenbereich hat.

  • Datenschnitt Berichtverbindungen nicht möglich: Achte darauf, dass der Slicer korrekt mit der PivotTable verknüpft ist. Dies kann durch die Überprüfung der Verbindungen in den PivotTable-Optionen erfolgen.

  • Excel Datenschnitt mehrfach Auswahl deaktivieren: Wenn du die Mehrfachauswahl im Datenschnitt deaktivieren möchtest, gehe zu den Slicer-Einstellungen und wähle die Option Auswahl deaktivieren.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, kannst du den Datenschnitt auch manuell anpassen:

  1. Excel Datenschnitt einfügen: Gehe zu Einfügen > Slicer, wähle die gewünschte PivotTable und klicke auf OK.
  2. Manuelles Filtern: Klicke einfach auf die gewünschten Items im Datenschnitt, um die PivotTable zu filtern.

Praktische Beispiele

Hier sind einige Beispiele, wie du den Datenschnitt in Excel optimal nutzen kannst:

  • Excel Diagramm Filter Button: Du kannst einen Datenschnitt als Filter für ein Diagramm verwenden, indem du ihn mit der zugrunde liegenden PivotTable verbindest. So kannst du die Datensicht schnell ändern.

  • Datenschnitt Suchfeld: Wenn du viele Elemente hast, kannst du das Suchfeld im Datenschnitt aktivieren, um schneller zu bestimmten Werten zu gelangen. Gehe dazu in die Slicer-Einstellungen.

Tipps für Profis

  • VBA-Fehlermeldungen: Wenn du beim Ausführen des Makros auf Fehler stößt, überprüfe die Namen der Slicer und PivotTables sorgfältig. Ein häufiger Grund für Probleme ist ein Schreibfehler.

  • Dokumentation: Nutze die Ressourcen von Jan Karel Pieterse, um mehr über die Verwendung von Slicern in VBA zu erfahren. Seine Website bietet wertvolle Informationen und Beispiele.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Filterwerte gleichzeitig im Datenschnitt auswählen? Um mehrere Filterwerte auszuwählen, klicke einfach mit der Strg-Taste auf die gewünschten Elemente im Datenschnitt. Wenn du Excel Datenschnitt mehrfachauswahl deaktivieren möchtest, gehe zu den Slicer-Einstellungen.

2. Warum funktioniert mein VBA-Code nicht mit dem Datenschnitt? Überprüfe, ob der Datenschnitt korrekt mit der PivotTable verbunden ist. Außerdem sollten die Namen der PivotTable und des Slicers im Code exakt übereinstimmen.

Beliebteste Forumthreads (12 Monate)

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