hier ein Beispiel ...
01.02.2010 18:39:41
Matthias
Hallo
(Farbe bitte anpassen)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing Then
Cells.Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub
oder
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing And Target. _
Count = 1 Then
Cells.Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub
https://www.herber.de/bbs/user/67678.xls
allerdings werden evtl. vorhandene Zellhintergrund-Formatierungen
in diesem Beispiel nicht berücksichtigt, sondern generell zurückgesetzt.
Gruß Matthias