aktive Zelle in SpalteA farbig

[HKindler]

Hi,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Columns(1).Interior.ColorIndex = xlNone
if intersect(target,columns(1)) is nothing then exit sub
intersect(target,columns(1)).Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

Allerdings ist das immer noch ein Quick-&-Dirty-Code.