ich habe eine Tabelle in der ich in der ersten Spalte Maschinen habe, in der zweiten steht ein Datum das farblich hinterlegt ist. Rot für überfällige, gelb für fällige und grün für noch Zeit der Inspektion.
Die Farben werden mir anhand des Datums ausgewählt über eine Select Case Anweisung, siehe Beispiel unten. Nun möchte ich, wenn die Mappe geöffnet wird, dass die Zellen automatisch aktualisiert werden. Kann mir einer von euch ein Tipp geben?
Gruß
Thomas
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim D As Date
D = [C1]
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
'bei Leer, keine Hintergrundfarbe
Case Empty
Target.Interior.ColorIndex = 0
'bei kleiner als Hintergrundfarbe rot
Case Is D
Target.Interior.ColorIndex = 4
'bei gleich Hintergrundfarbe gelb
Case Is = D
Target.Interior.ColorIndex = 6
End Select
End Sub