Aktive Zelle mit Farbe hinterlegen

104007


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.

 

 
Dim lastcell As Range
Dim farbe As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub

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

 

Das Ergebnis sieht wie folgt aus: