Klassenmodul funktioniert nicht
21.01.2005 13:15:34
Remo
Ich habe ein VBA-Code aus den Excel-Beispielen "geklaut".
Wenn ein Filter in Tabelle1 aktiviert wird, soll die Hintergrundfarbe dieser
Zelle gelb werden. Leider funktioniert es nicht.
Aktiviere ich einen Filter, passiert nichts.
Möchte ich aber in der gleichen Datei ein anderes Makro starten, kommt die Meldung: "Fehler beim Kompilieren: Ausserhalb einer Prozedur ungültig",
und VBA springt zu meinem Klassenmodul.
Kann mir jemand helfen? Wäre sehr dankbar.
Gruss Remo
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(3, iCol).Interior.ColorIndex = 6
Else
Cells(3, iCol).Interior.ColorIndex = xlColorIndexNone
End If
Next flt
End Sub
Anzeige