Datumsvergleich
26.02.2020 16:23:39
Merkes
Ai = 1.1.2020, Ei = 31.03.2020, An= 13.04.2020, En=31.12.2020
Diese werden über verschiedene Fälle miteinander verglichen und, falls ein Fall eintritt, sollen verschiedene Aktionen stattfinden. Das Einlesen in die Variablen funktioniert soweit nur bekomme ich in der Bedingung:
'3. fall
ElseIf Ai = An And Ei . _
Cells(n, 2).Value Then
If .Cells(i, 3).Value = "Lerner" And Ei >= An Then
MsgBox Ei & " > " & An & " " & CDate(Ei) & ">=" & CDate(An)
End If
.Cells(i, 2).Interior.ColorIndex = 46
.Cells(n, 2).Interior.ColorIndex = 46
.Cells(n, 16).Value = "Kollision"
.Cells(n, 16).Interior.ColorIndex = 46
.Cells(n, 14).Value = "RGB(255, 102, 0)"
A = A & .Cells(n, 2).Value & ", " & vbCrLf
End If
End If
End If
End If
End If
End If
Anzeige