Zur Übersichtlichkeit - "wo ist gerade der
Cursor" dient folgendes Makro
ein kleiner Nachteil:
wenn die Füllfarbe der Zelle manuell gesetzt wurde, wird diese
Farbe gelöscht !
Code in "DieseArbeitsmappe"
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal
Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex =
xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
End Sub