Zellen bei Doppelklick einfärben
19.05.2005 13:05:47
Michael
ich färbe mit diesem code zellen ein.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Set Target = Intersect(Target, Range("D6:D50"))
If Not Target Is Nothing Then
With Target.Interior
Select Case .ColorIndex
Case 44
.ColorIndex = xlNone
Case Else
.ColorIndex = 44
End Select
End With
Cancel = True
End If
End Sub
ist es möglich auch die nachbarszellen durch diesen doppelklick einzufärben?
bsp. in der zeile (8) die zellen von B8 bis D8 und F8 bis L8 (E8 nicht)
am liebsten unabhängig in welcher der zellen ein doppelklick gemacht wird.
ist sowas möglich?
bye Michael