Bedingung ob in Bereich
02.08.2016 21:16:05
Anna
habe einen Code, der mir automatisch nach Eingabe eines Datums automatisch verschiedene Synchropunkte (bspw. 6 Monate davor) ausrechnet und in eine Zeitschiene setzt durch Symbole und färben der Zellen. Das funktioniert auch.
Jetzt hab ich mir eine "Rückgängig" Funktion gebastelt. Das "rückfärben" der Zellen funktioniert leider nicht ganz wie ich will. Meine Zeitschiene geht über mehrere Jahre und hat zwecks Übersichtlichkeit unterschiedliche Schattierungen.
Wie kann ich die Bedingung einbauen, dass wenn in der Schleife eine Zelle hellblau (Löschen _ Prozess) und die Zelle sich in Spalte 16-27 (für Jahr 2016) oder 40-51 (Jahr 2018) befindet hellgrau färbt, wenn die Zelle hellblau uns sich aber in den Spalten 28-39 oder 52-63 befindet dunkelgrau färbt.
If Target.Value = "" Then
With Worksheets(1)
For i = 18 To 65
If .Cells(zeile, i).Value = "u" Then 'Löschen Synchropunkte
If .Cells(zeile, i).Font.Color = RGB(0, 176, 80) Or .Cells(zeile, i).Font. _
_
Color = RGB(83, 141, 213) Then
.Cells(zeile, i).Value = ""
End If
End If
If .Cells(zeile, i).Interior.Color = RGB(83, 141, 213) Then 'Löschen Prozess
.Cells(zeile, i).Interior.Color = RGB(242, 242, 242)
End If
Next i
End With
End If