Filterspalte farbig markieren

Forumthread: Filterspalte farbig markieren

23.10.2018 15:46:23

ludicla

Hallo Profis,
vom Forum hab ich das folgende Makro um in einzelnen Tabellenblätter die Filer-
spalten farbig hervorzuheben:


Private Sub Worksheet_Calculate()
Dim Af As AutoFilter, i As Integer
Set Af = Me.AutoFilter
If Me.AutoFilterMode Then
For i = 1 To Af.Filters.Count
If Af.Filters(i).On Then
Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = 6
Else
Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = xlNone
End If
Next i
End If
End Sub

meine Frage: kann man das auch irgendwo in Excel einbauen, damit es immer und
überall funktioniert ?
Im Voraus schon Danke für euere Tipps.
bin aber erst morgen wieder da.
Gruss Ludicla.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Filterspalte farbig markieren

29.10.2018 18:43:21

Dieter

AW: Filterspalte farbig markieren

29.10.2018 18:43:21

Dieter

Hallo Ludicla,
du kann ein AddIn verwenden, um bei jeder Autofilteraktivierung die entsprechende Spalte gelb zu färben.
In dem AddIn verwendest du das Calculate-Ereignis auf Application-Ebene. Dieses Ereignis wird durch eine Filteraktivierung nicht ausgelöst, wie bei deinem Beispiel auch.
Wenn du in den Tabellenblättern, die gefiltert werden sollen, jeweils z.B. die Formel =JETZT() unterbringst (ggf. in weißer Schrift), dann funktioniert die Sache.
Der Code des AddIns sieht folgendermaßen aus (Codemodul "DieseArbeitsmappe"):

Option Explicit
Public WithEvents xlApp As Excel.Application
Private Sub Workbook_Open()
Set xlApp = Excel.Application
End Sub
Private Sub xlApp_SheetCalculate(ByVal Sh As Object)
Dim af As AutoFilter
Dim i As Long
Set af = Sh.AutoFilter
If Sh.AutoFilterMode Then
For i = 1 To af.Filters.Count
If af.Filters(i).On Then
af.Range.Columns(i).Interior.ColorIndex = 6
Else
af.Range.Columns(i).Interior.ColorIndex = xlNone
End If
Next i
End If
End Sub

Du speicherst eine Arbeitsmappe mit diesem Code als AddIn. Solange das AddIn aktiviert ist, färbt es dir die aktiven Autofilterspalten
Leider weigert sich das Herber-System das AddIn (auch nicht in gezippter Form) anzunehmen.
Viele Grüße
Dieter

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Filterspalte farbig zu markieren, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke mit der rechten Maustaste auf dein Arbeitsblatt im Projektfenster und wähle Einfügen > Modul.

Kopiere und füge den folgenden Code in das Modul ein:

Private Sub Worksheet_Calculate()
   Dim Af As AutoFilter, i As Integer
   Set Af = Me.AutoFilter
   If Me.AutoFilterMode Then
       For i = 1 To Af.Filters.Count
           If Af.Filters(i).On Then
               Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = 6
           Else
               Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = xlNone
           End If
       Next i
   End If
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Aktiviere den AutoFilter in deinem Arbeitsblatt. Die gefilterten Spalten werden nun farblich hervorgehoben.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass die AutoFilter-Funktion aktiv ist. Überprüfe auch die Makrosicherheitseinstellungen in Excel, dass sie das Ausführen von Makros zulassen.
Fehler: Keine Farben erscheinen.
- Lösung: Vergewissere dich, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde und die AutoFilter aktiviert ist.

Alternative Methoden

Eine alternative Methode ist die Verwendung eines AddIns. Hier ist, wie du ein AddIn erstellen kannst, das die Filterspalte farblich markiert:

Öffne den VBA-Editor (ALT + F11).
Füge ein neues Modul in DieseArbeitsmappe ein.

Kopiere den folgenden Code:

Option Explicit
Public WithEvents xlApp As Excel.Application

Private Sub Workbook_Open()
   Set xlApp = Excel.Application
End Sub

Private Sub xlApp_SheetCalculate(ByVal Sh As Object)
   Dim af As AutoFilter
   Dim i As Long
   Set af = Sh.AutoFilter
   If Sh.AutoFilterMode Then
       For i = 1 To af.Filters.Count
           If af.Filters(i).On Then
               af.Range.Columns(i).Interior.ColorIndex = 6
           Else
               af.Range.Columns(i).Interior.ColorIndex = xlNone
           End If
       Next i
   End If
End Sub

Speichere die Datei als AddIn und aktiviere es. Damit wird die aktive Filterspalte immer farblich markiert.

Praktische Beispiele

Wenn du beispielsweise eine Liste mit Verkaufsdaten hast und nur die gefilterten Zeilen markieren möchtest, kannst du das Makro verwenden, um die Spalten, die du gefiltert hast, automatisch farblich hervorzuheben. So behältst du immer den Überblick über die aktiven Filter.

Tipps für Profis

Nutze die xlNone-Option, um die Farben zurückzusetzen, wenn der Filter nicht aktiv ist.
Experimentiere mit verschiedenen ColorIndex-Werten, um die Farben nach deinem Geschmack anzupassen.
Du kannst auch bedingte Formatierungen verwenden, um zusätzlich die gefilterten Zeilen zu markieren.

FAQ: Häufige Fragen

1. Kann ich die gefilterten Zeilen auch anders farblich markieren? Ja, du kannst die Interior.ColorIndex-Eigenschaft auf einen anderen Wert setzen, um eine andere Farbe zu wählen.

2. Funktioniert das Makro in allen Excel-Versionen? Das vorgestellte Makro sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und neuer. Achte darauf, dass die Makrofunktion in den Excel-Optionen aktiviert ist.

Beliebteste Forumthreads (12 Monate)