Laufzeitfehler 1004

[omron2003]

Hallo Forum,

beim unten genanten Code bekomme ich den Laufzeitfehler 1004,
und folgende Code Zeile ist gelb markiert.
Woran könnte das liegen ?

Besten Dank im Voraus
omron2003

Code:

.Interior.ColorIndex = 15 'xlNone

Code:

Private Sub Worksheet_Calculate()
Dim i As Integer
'Alle Hintergrund- und Schriftfarben in Bereich B2:F2 wieder zurücksetzen
With Range("A7:H7")
.Interior.ColorIndex = 15 'xlNone
.Font.ColorIndex = 0
End With
'Schleife zum Finden, in welcher Spalte der Filter gestezt wurde
For i = 1 To AutoFilter.Filters.Count
'Wenn der Autofilter in der Spalte, die in dem aktuelle
'Schleifendurchgang angesprochen wird, aktiv ist, dann...
If AutoFilter.Filters(i).On Then
'...Zellenhintergrund der 1. Zelle in der gefilterten Spalte in
'Grün und Schrift in weiß ändern
With Cells(7, i + 1)
.Interior.ColorIndex = 10
.Font.ColorIndex = 2
End With
End If
Next
End Sub

[Steffl]

Hallo,

geschützte Zellen in dem Bereich A7:H7.

[omron2003]

Danke,
es war eine Spalte ausgeblenden und genau in dieser waren die Zellen geschützt...

Nochmals besten Dank
Gruß omron2003