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