Ich hab ein schönes Script gefunden, welches mir die Spalte und Zeile der aktuell markierten Zelle farbig Schattiert:
' Highlight the entire row and column for the ActiveCell.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36
ActiveCell.EntireColumn.Interior.ColorIndex = 43
End Sub
Ein kleiner aber gravierender Schönheitsfehler ist, dass beim Drucken diese Tabelle auch die Schattierung angezeigt wird, welche im SelectionChange Ereignis festgelegt wird.
Gibt es die Möglichkeit dieses Change Ereignis per Umschaltfläche Ein oder auszuschalten in dieser Form:
If ToggleButton1.Value = 0 Then
Stope das Change Ereignis und entferne restliche Schattierung
else
starte das Ereignis wieder neu...
end if...
Danke für Eure Hilfe:)