Hallöli.
Ich habe folgendes Script, welches, von der angewählten Zelle aus gesehen, jeweils die komplette Zeile und die Spalte färbt. Das Problem ist nun , das ich einen Bereich, also z.B. A1 bis K3 so ausschließen möchte, dass 1. nichts passiert, wenn ich in eine Zelle dieses Bereichs klicke, und 2. die Farbe in dem ausgeschlossenen Bereich sich nicht ändert, wenn ich eine Zelle unterhalb anklicke.
Zellen A1 bis K2 sind verbunden, und dienen als Überschrift. In A3 bis K3 sind die Tabellenüberschriften (mit Filtefunktion).
Private prevCell As Range
Private Sub Workbook_Open()
Set prevCell = Range(ActiveCell.Address)
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set prevCell = Range(ActiveCell.Address)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
If Not prevCell Is Nothing Then
prevCell.EntireRow.Interior.ColorIndex = xlColorIndexNone
prevCell.EntireColumn.Interior.ColorIndex = xlColorIndexNone
End If
Target.EntireRow.Interior.Color = RGB(255, 200, 200)
Target.EntireColumn.Interior.Color = RGB(255, 200, 200)
Set prevCell = Target
End Sub
|