VBA Rückrichtung hinzufügen
11.09.2018 11:06:46
aelli
ich habe folgendes Problem.
In meinem Code wird nach klick auf ein Feld in einer Art Kalender ein kästchen gefärbt und das Datum in eine korrespondierende Zelle geschrieben. Hier mal der Code dafür:
ActiveCell.Interior.color = Cells(ActiveCell.Row,7).DisplayFormat.Interior.color
'Fuegt das Datum in Beginn ein falls kleiner als aktueller Beginn
If Cells(ActiveCell.Row, 8).Value > Cells(6, ActiveCell.Column).Value Then
Cells(ActiveCell.Row, 8).Value = Cells(6, ActiveCell.Column).Value
'Fuegt Beginn ein falls noch kein Datum eingef?gt wurde
ElseIf IsEmpty(Cells(ActiveCell.Row, 8).Value) Then
Cells(ActiveCell.Row, 8).Value = Cells(6, ActiveCell.Column).Value
End If
'Fuegt das Datum in Ende ein falls groesser als aktueller Beginn
If Cells(ActiveCell.Row, 9).Value Nun soll das auch in der Rückrichtung funktionieren. D.h. wenn ein Datum in z.B. das Beginn Feld eingetragen wird, wird das korrespondierende Feld eingefärbt. Geht das?
Vielen Dank schonmal
Gruß Aelli