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!!!!!! |