VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kopfzeile einer Autofilter-Tabelle gelb hinterlegen

Gruppe

Ereignis

Bereich

Calculate

Thema

Kopfzeile einer Autofilter-Tabelle gelb hinterlegen

Problem

Beim Filtern einer Spalte soll die Kopfzeile gelb hinterlegt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   Dim flt As Filter
   Dim iCol As Integer
   For Each flt In ActiveSheet.AutoFilter.Filters
      iCol = iCol + 1
      If flt.On Then
         Cells(1, iCol).Interior.ColorIndex = 6
      Else
         Cells(1, iCol).Interior.ColorIndex = _
            xlColorIndexNone
      End If
   Next flt
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Calculate