Zeilen in TB farbig unterlegen
29.01.2022 12:46:05
Andrea
ich habe ein Makro erhalten, dass mir in einem Tabellenblatt die aktive Zeile farbig unterlegt.
Gibt es eine Möglichkeit, dass ich dies - auf ähnliche Weise - in mehreren Tabellenblättern realiseren kann.
(Ich könnte das Makro in jedes TB im VBA-Projekt einfügen - das geht ja)
Hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
With Target
.EntireRow.Interior.ColorIndex = 36
End With
Application.ScreenUpdating = True
End Sub
Andrea