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.

Sub Farbe
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:

 

 

Drucken