|
Guten Morgen,
habe folgendes Problem und hoffe auf Unterstützung:
In Zelle (6+u,20), wobei "u" ein Zeilenzähler ist, ist eine bedingte Formatierung hinterlegt. Das heißt in Spalte 20 werden alle Zellen markiert, die den gleichen Absolutwert besitzen.
Die farbliche Kennzeichnung wird erfolgreich durchgeführt.
Nun möchte ich im nächsten Schritt, wenn die betroffene Zelle markiert ist, dass die ganze Zeile ausgeblendet wird. Wenn die Zeile weiß ist, also nicht markiert, soll diese nicht ausgeblendet werden.
Mein Ansatz wäre:
Dim u as integer,
Dim ZellenFarbe as Range
For u = 1 To 1000
ZellenFarbe = Cells(6 + u, 20)
If ZellenFarbe.Interior.ColorIndex = 49407 Then
ActiveCell.EntireRows.Hidden
End If
Next
Leider kommt hier die Fehlermeldung: "Laufzeitfehler 91: Objektvariable oder With.Blockvariable nicht festgelegt.
Hoffe mir kann hierzu jemand weiterhelfen.
Grüße
|