Hallo zusammen,
erstmal vielen Dank für die schnelle Hilfe, aber ich finde einfach keine Lösung! Vielleicht könnt ihr mir ja weiter helfen!!!
Kann jemand dieses Problem lösen, in einer Spalte sollen alle Termine überprüft werden, liegt kein Termin innerhalb der nächsten 6 Tage dann soll eine Messagebox darauf hinweisen, ansonsten soll dieser Termine rot markiert werden
Dim a As Long
For a = 4 To 103
If Sheets("UG").Cells(a, 7).Value = Date Or Sheets("UG").Cells(a, 7).Value = Date + 1 Or Sheets("UG").Cells(a, 7).Value = Date + 2 Or Sheets("UG").Cells(a, 7).Value = Date + 3 Or Sheets("UG").Cells(a, 7).Value = Date + 4 Or Sheets("UG").Cells(a, 7).Value = Date + 5 Or Sheets("UG").Cells(a, 7).Value = Date + 6 Then
Rows(a).Font.ColorIndex = 3
Rows(a).Font.Size = 12
Rows(a).Font.Bold = True
Else
iMsgresz = MsgBox("Überprüfen Sie Ihre Termine bitte, es liegen für diese Woche keine Endtermine vor!", vbCritical, "Fertig")
End If
Next a
End Sub