Bei Klick in Zelle andere Zellen färben
21.06.2016 09:05:53
CaroR
ich als VBA Anfänger habe ein Problem, das vermutlich jeder, der sich ein bisschen mit VBA auskennt leicht lösen kann- darüber würde ich mich sehr freuen!
Folgende Aufgabe: Bei Klick in bspw. Feld C3 sollen sich ein paar andere weiter unten einfärben, C3 selbst nicht. Bei Klick in ein anderes Feld geht die Färbung weg und die entsprechende neue Färbung wird umgesetzt.
Folgenden Code habe ich bisher versucht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Cells(3, 3)) Is Nothing Then
Range("C9:G19").Interior.Color = RGB(255, 255, 255)
Range("C9:G19").Font.Color = RGB(0, 0, 0)
Range("D9, E9, C13, D14, E14, E15, C16, D16").Interior.Color = RGB(64, 124, 43)
Range("D9, E9, C13, D14, E14, E15, C16, D16").Font.Color = RGB(255, 255, 255)
End If
End Sub
Hatte es per aufzeichnen versucht, da kam keine schöne Methode raus und zudem soll der Cursor am Ende in C3 stehen, da kam bei mir eine Endlosschleife raus ... Was fehlt mir, was ist falsch? Ich verstehe leider die erste Zeile auch nicht so richtig :/ Habe Java Basic Kenntnisse aber VBA halt leider gar nicht.
Danke und viele Grüße!
Caro