Aktive Zelle mit Farbe hinterlegen

 

Folgendes Programm färbt die aktive Zelle farblich ein. Wird die Zelle wieder verlassen wird der Ursprungszustand in der verlassenen Zelle wieder hergestellt und die nun aktive Zelle entsprechend eingefärbt.

{codecitation}

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

{/codecitation}

Dieser Code ist in einem Tabellenblatt einzufügen, nicht in einem Modul.

 

Das Ergebnis sieht wie folgt aus: