Liste für Anwesenheit
21.09.2017 09:59:55
Marco
ich möchte ein Anwesenheitsliste erstellen. in einem Tabellenblatt, aufgeteilt in 7 Tagen. Die Namen für einen Tag sind in den Zellen A4:A10;B4:B10;C4:C10;D4:D10. Jetzt möchte ich dass alle Namen die nicht anwesend sind hellgrau (ColorIndex 15) erscheinen. Durch anklicken (oder auch Dropdown, was einfacher ist) eines Namens soll dieser in Schwarz (ColorIndex 1) erscheinen. So dass man sofort sieht wer an dem Tag da ist und die anderen Namen bleiben hellgrau.
Ich habe mich bis jetzt erst mal mit einem Namen so weit gekämpft dass wenn die Zelle leer ist der Name in Hellgrau erscheint und dann beim anklicken Schwarz wird. Aber ich habe da ein Denkfehler. Denn sobald ich eine andere Zelle anklicke wird der Name auch wieder Schwarz, da die Zelle in diesem Moment ja nicht mehr leer ist.
Hier meine Formel die ich bis jetzt habe;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D7").Value = "" Then
Range("D7").Value = "WAL"
Range("D7").Font.ColorIndex = 15
Else
Range("D7").Value = "WAL"
Range("D7").Font.ColorIndex = 1
End If
End Sub
Jetzt stehe ich auf dem Schlauch, hoffe mir kann jemand helfen das Problem zu lösen.
Danke schon mal,
Gruß Marco