|
Hi Manne,
keine Ahnung ob ich dich richtig verstehe. Meinst du das in etwa so? Der Code gehört in das VBA-Modul des entsprechenden Arbeitsblatts. (z.B. "Tabelle1")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$D$10"
Range("E10,F10,G10").Font.Color = 52479
Case "$E$10"
Range("D10,F10,G10").Font.Color = 52479
Case "$F$10"
Range("D10,E10,G10").Font.Color = 52479
Case "$G$10"
Range("D10,E10,F10").Font.Color = 52479
End Select
Target.Font.ColorIndex = 0
End Sub
Einfacher wäre es natürlich die Zellen D10:G10 von vornherein gelb zu formatieren und nur die angeklickte Zelle zu entformatieren. Dann reicht auch der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Font.ColorIndex = 0
End Sub
Gruß Mr. K.
|