Hallo Liebe Excellenzen !
Ich benötige mal wieder und hoffe sehr auf Eure Unterstützung.
In einer Excelarbeitsmappe mit mehreren themaspezifischen Tabellenblättern habe ich jeweils eine Pivottabelle mit denselben Spaltenüberschriften/-feldern, z.B. Transportnummer, Spediteurname etc.
Auf einer Userform, die auf allen Tabellenblättern aufgerufen werden kann, sind mit mehreren Togglebuttons Suchfunktionen hinterlegt, die die jeweils aktive Liste nach einem eingegebenen Suchbegriff filtern.
=====================================================================================================================
Code :
Private Sub ToggleButton1_Click()
‘Togglebutton in Userform zum Filtern in der Spalte „Spediteur“. Die Hintergrundfarbe des Toggelbuttons ändert sich jeweils bei aktiver Suche und Zurücksetzen des Filters.
With Application
.EnableEvents = False
.ScreenUpdating = False
If ToggleButton1 = True Then
'‘Buttonbeschriftung auf „Reset“ ändern
ToggleButton1.Caption = "Reset"
'Button-Hintgergrundfarbe ändern
ToggleButton1.BackColor = &H8080FF
'Makroaktion 1 starten (Suchmaske aufrufen) :
On Error Resume Next
Dim SUCH As String
SUCH = InputBox("Bitte Suchbegriff eingeben")
ActiveSheet.PivotTables("PivotTable").PivotFields("Spediteur").PivotFilters _
.Add Type:=xlCaptionContains, Value1:=SUCH
'Hintergrundfarbe bei aktiver Suche ändern:
ToggleButton1.BackColor = &H8080FF 'Button-Hintergrundfarbe ändern auf rot
'CommandButton1.Caption = "" 'Buttonbeschriftung entfernen
TextBox1.Text = SUCH
'Nach oben scrollen:
Application.Goto Reference:=Cells(1, 1), scroll:=True
Else
ToggleButton1.Caption = "Spediteur"
ToggleButton1.BackColor = RGB(202, 225, 255) 'blaugrau
'Makroaktion 2 starten (Filter zurücksetzen) :
ActiveSheet.PivotTables("Pivottable").PivotFields("Spediteur"). _
ClearLabelFilters
Range("D1").Select
'End Sub
End If
.EnableEvents = True
.ScreenUpdating = True
End With
==================================================================================================================
Problem : Die gesetzten Filter werden in der Tabelle leider schnell übersehen und es werden nicht alle relevanten Daten ausgewertet.
Frage : Wie kann der Code so erweitert werden, damit beim Filtern in der Pivotspalte „Spediteur“ der Hintergrund des „Spaltenkopfes“ farbig wird und beim Deaktivieren des Filters die Farbe zurückgesetzt wird ?
(Die Spalten sind an festen Positionen im jeweiligen Blatt platziert und könnten neben dem Feldnamen „Spediteur“ auch über eine Range angesprochen werden).
Ich hoffe, ich habe mich klar ausgedrückt und bedanke mich jetzt vielmals schon für Eure Hilfe.
LG
Wolfgang
|