Noch mal farbige Zeile
18.11.2003 14:35:03
PeterM
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 6
End Sub
Alt + F11, links Doppelklick auf Tabelle, Code einfügen.
Dein Vorschlag funktioniert prima,
aber ich hätte das Ganze gern zu Ein- und Ausschalten - geht das auch?
Gruss
Peter
Anzeige