Private Sub Worksheet_Calculate()
'KopfzellenDerGefiltertenSpalteFärbenWennAktiv
Dim flt As Filter
Dim iCol As Integer
For Each flt In ActiveSheet.AutoFilter.Filters
iCol = iCol + 1
If flt.On Then
Cells(2, iCol).Interior.ColorIndex = 15
Else
Cells(2, iCol).Interior.ColorIndex = _
xlColorIndexNone
End If
Next flt
End Sub
Dieses läuft einwandfrei und die Zelle in der der Filter gesetzt ist wird gefärbt.
Nun das Problem, wenn ich in einem anderen Tabellenblatt Änderungen an bestimmten Einträgen vornehme (Faktoren mit denen ich in der zu filternden Datei Berechnungen ausführe)kommt folgende Fehlermeldung:"Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt"
Für mich als Stümper ein unlösbares Problem aber von Euch hat sicher jemand eine Lösung.
Danke im Voraus
Frank