Markierung
28.01.2008 09:58:36
Waldemar
habe hier einen Fehler drin und komm nicht weiter.
Die Zellen in den Spalten A-C sollen nur markiert werden wenn die Zelle in der Spale D ausgewählt ist.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:C").Interior.ColorIndex = xlNone
If Target.Column = 4 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 2), Cells(Target.Row, _
_
3)).Interior.ColorIndex = 6
End Sub
Anzeige