title image


Smiley VBA in welcher Zeile beginnt der Autofilter?
Hallo,



möchte in einer umfangreichen Tabelle etwas deutlich machen, dass eine entsprechende Spalte gefiltert ist. Dazu möchte ich die Überschrift einfärben. Der folgende Code tut genau was ich wünsche - hat aber den Nachteil, dass immer die erste Zeile eingefärbt wird. Ich würde das ganze gerne variabel gestalten und daher gerne via VBA herausfinden in welcher Zeile der Autofilter beginnt:







      

Private Sub Worksheet_Calculate()

Dim s As Integer

    If ActiveSheet.AutoFilterMode = True Then

        On Error Resume Next

        For s = 1 To ActiveSheet.AutoFilter.Filters.Count

            Cells(4, s).Interior.ColorIndex = xlNone 'ggf. alte Farbmarkierung zurücksetzen

            If ActiveSheet.AutoFilter.Filters(s).On Then

                Cells(4, s).Interior.ColorIndex = 17 'gilt so nur für die Zeile 4 :-(

            End If

        Next

    End If

End Sub 





Code eingefügt mit Syntaxhighlighter 3.0







liebe grüsse georg
Beiträge zu Excel 2002 in Verbindung mit Win XP

 A
1Tabellentool
2von StrgAltEntf


Gibts hier


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: