Hallo Machkie,
vielen Dank für deinen Einsatz. Ich konnte das Problem mithilfe eines Buches jetzt gestern noch selbst lösen. Hat gedauert aber die Lösung klappt. *freu :)
Sub S1()
Dim IntZeile As Integer
For IntZeile = 1 To 5000
If Cells(IntZeile, 2) = "Completed" And Cells(IntZeile, 4) = "" Then
Cells(IntZeile, 4).Interior.ColorIndex = 6
End If
If Cells(IntZeile, 2) = "Completed" And Cells(IntZeile, 5) = "" Then
Cells(IntZeile, 5).Interior.ColorIndex = 6
End If
If Cells(IntZeile, 2) = "Completed" And Cells(IntZeile, 6) = "" Then
Cells(IntZeile, 6).Interior.ColorIndex = 6
End If
Next
UsedRange.RowHeight = 15
Range("Table_owssvr__1[[#Headers],[ID]]").Select
End Sub
---
Sub S2()
Dim Datum As Date
For IntZeile = 1 To 5000
If Cells(IntZeile, 3) < DateAdd("d", -14, Date) And Cells(IntZeile, 2) = "Planned" Then
Cells(IntZeile, 3).Interior.ColorIndex = 3
End If
Next
End Sub |