Hallo!

Hab ein Problem mit der bedingten Formatierung. Die Zellen sollen mit einer Farbe hinterlegt werden wenn eine gewisse Bedingung erfüllt ist (z.B.: das Datum erreicht oder ein gewisser Text wie erledigt in einer Zelle steht. Hab es mit diesem Code versucht.

Dieser Text geht:

Dim cell As Range

For Each cell In Range("J2:L1000")


If cell.Value <= Date Then cell.Interior.ColorIndex = 3

If cell.Value = "" Then cell.Interior.ColorIndex = xlcolornone

Application.ScreenUpdating = False

Next

Dieser nicht wäre mir aber lieber:

Dim Zeile As Long
Dim ZeileMax As Long

Application.ScreenUpdating = False 'zeigt Excelarbeit im Hintergrund nicht

Tabelle1.Activate

ZeileMax = Cells.Find("*", , , , xlByRows, xlPrevious).Row 'schaut wieviele Zeilen benutzt sind

With Tabelle1 'hier wird festgelegt in welcher Tabelle die Markierungen gemacht werden

For Zeile = 2 To ZeileMax 'Ermittlung der Maximal benutzten Zeilen

If Cells(Zeile, 9).Value = Date Then cell.Interior.ColorIndex = 10

Else

End If

Next Zeile

End With

Benötige dringend Hilfe!!!!!!