Zellenfarbe/ Value verändern
22.10.2020 10:12:44
Leo
Ausgangslage: Ich bin bei uns zuständig für Sicherheitsschulungen. Wenn ein Standort geschult ist, und der Schulungsleiter vor Ort eine Zelle aktiviert/etc, soll der Hintergrund grün werden.
Die erste Variante war, über die bedingte Formatierung einfach die Zellenfarbe zu ändern sobald ein X eingetragen wird.
Die zweite Variante war über VBA BeforeDoubleClick die Farbe mit einem Doppelclick auf grün zu setzen
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D5:M68")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 4
Else
If Target.Interior.ColorIndex = 4 Then Target.Interior.ColorIndex = xlNone
End If
End If
End Sub
(Aber die würde von den Teams leider abgelehnt.)
jetzt zum Problem:
Jetzt habe ich allerdings einige Standorte bei denen nur die Chefs geschult werden sollen. in den Feldern steht auch drinne z.B. "nur Leitungsteam". Damit klar bleibt dass auch nur das Leitungsteam geschult wurde soll der Text in der Zelle erhalten bleiben, und sich nur der Hintergrund ändern.
Also im Grunde:
1. Zelle auswählen in der "Nur Leitungsteam" steht
2. X eintragen
3. Hintergrund wird grün und in der Zelle steht weiterhin/wieder "Nur Leitungsteam"
Kann mir jemand vielleicht helfen oder einen Tipp geben wie man Soetwas implementieren kann? Dadurch dass die Eintragungen vor Ort von verschiedenen Teams geschehen, soll am liebsten die erste Variante mit dem X verwendet werden weil das "am einfachsten" ist, auch für Leute die mit Excel überhaupt nichts am Hut haben.
Vielen Dank im Vorraus,
Leo