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 clear1()
UsedRange.Interior.ColorIndex = 2
End Sub
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
|