21.02.2022, 23:15
Hallo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 8
Application.ScreenUpdating = True
End Sub
dieser Text färbt die aktive Zelle hellblau. Das ist auch alles super. Ich will aber die Zelle rechts neben der aktiven Zelle einfärben. wer ne Idee, was ich in dem Text ändern müsste?
Gruß
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 8
Application.ScreenUpdating = True
End Sub
dieser Text färbt die aktive Zelle hellblau. Das ist auch alles super. Ich will aber die Zelle rechts neben der aktiven Zelle einfärben. wer ne Idee, was ich in dem Text ändern müsste?
Gruß
