Makro bringt Fehlermeldung
24.01.2007 14:20:51
Frank
da mir vorgestern von Ingolf (nochmals Danke)sehr kompetent und schnell geholfen wurde wende ich mich mit dem nächsten Problem an Euch. Ich hab folgendes Makro aus dem Forum geladen:
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:Tabelle "Rabatte Zuschläge")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.
Dank im Voraus
Frank
https://www.herber.de/bbs/user/39875.xls