Aktive Zelle färben

[Martin335]

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ß

[Kuwer]

Hallo,

der Code geht in meiner Mappe.

Gruß Uwe

[00202]

Hallo,  

die Zelle rechts von der aktiven Zelle?  

Code:

Target.Offset(, 1).Interior.ColorIndex = 8

Kommt erst zum Problem, wenn du in die letzte Spalte klickst.

Dann so:

Code:

If Target.Column <> Me.Columns.Count Then Target.Offset(, 1).Interior.ColorIndex = 8