Wie bleibt der Slicer einer PivotTable beim Scrollen im Arbeitsblatt in Excel sichtbar?
Beim Arbeiten mit PivotTable können Sie Slicer einfügen, um Ihre Tabellendaten visuell zu filtern. Dieser Artikel zeigt Ihnen, wie der Slicer von PivotTable auch beim Scrollen des Arbeitsblatts stets sichtbar bleibt.
Slicer von PivotTable beim Scrollen des Arbeitsblatts mit VBA-Code mitbewegen
Slicer von PivotTable beim Scrollen des Arbeitsblatts mit VBA-Code mitbewegen
Das folgende VBA-Skript sorgt dafür, dass der Slicer Ihrer PivotTable beim Scrollen des Arbeitsblatts automatisch mitbewegt wird. Gehen Sie dazu wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im linken Projektfenster auf DieseArbeitsmappe und fügen Sie anschließend den folgenden VBA-Code in das Fenster DieseArbeitsmappe (Code) ein. Siehe Screenshot:
VBA-Code: Slicer von PivotTable beim Scrollen des Arbeitsblatts mitbewegen
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'specify a slicer
Application.ScreenUpdating = False
Set ShF = ActiveSheet.Shapes("Column1")
Set ShM = ActiveSheet.Shapes("Column2")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
End With
Application.ScreenUpdating = True
End SubHinweise:
1). Im Code sind „Column1“ und „Column2“ die Namen der Slicer.
2). Sie können im Code die Position des Slicers beim Scrollen des Arbeitsblatts festlegen.
3). Außerdem können Sie je nach Bedarf weitere Slicer zum Code hinzufügen oder vorhandene entfernen.
3. Drücken Sie die Tasten Alt + Q, um das Dialogfeld Microsoft Visual Basic for Applications zu schließen.
Ab sofort bewegen sich die angegebenen Slicer beim Scrollen im Arbeitsblatt automatisch mit der aktiven Zelle. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie behält man die Erweiterbarkeit einer Tabelle bei, indem man Tabellenzeilen in ein geschütztes Excel-Arbeitsblatt einfügt?
- Wie kombiniert man Zellen in Excel, ohne die Formatierung der einzelnen Zellen zu verlieren?
- Wie entferne ich Duplikate in Excel, behalte dabei aber die erste Instanz bei?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins