Office: Aktive Spalte und Zeile farblich hervorheben

FabjecK · 23. Januar 2019

Hallo,

ich möchte zur Übersichtlichkeit in einer großen Tabelle mit engen Spalten die aktive Zeile und Spalte farblich hervorheben. Dazu habe ich folgenden Code gefunden.

Code:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn
If xColumn "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 24
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 24
.Pattern = xlSolid
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code funktioniert auch soweit, aber ich möchte ihn so anpassen, dass er nur in einem bestimmten Bereich funktioniert. Ist das Möglich?

Bereich: J4 bis DJ2000

Kann mir jemand helfen?

Danke und Gruß
FabjecK

:)

Klaus-Dieter · 24. Januar 2019

Hallo,

versuche es mal so:

Code:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Set isect = Application.Intersect(Target, Range("J4:DJ2000"))
If Not isect Is Nothing Then

Static xRow
Static xColumn
If xColumn "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 24
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 24
.Pattern = xlSolid
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klaus-Dieter · 24. Januar 2019

Hallo,

das geht aber auch viel kürzer:

Code:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set isect = Application.Intersect(Target, Range("J4:DJ2000"))
If Not isect Is Nothing Then
Cells.Interior.Color = xlNone
Columns(Target.Column).Interior.Color = 14281213
Rows(Target.Row).Interior.Color = 14281213
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

FabjecK · 24. Januar 2019

Okay, danke. Es funktioniert zwar jetzt nur noch in dem genannten Bereich, aber es soll auch nur die jeweilige Zeile und Spalte in diesem Bereich markiert werden. Und wenn man in andere Bereiche klickt, dann soll die Markierung aufgehoben werden.

Habe es im ersten Post etwas ungenau beschrieben.

Gruß

FabjecK

Klaus-Dieter · 24. Januar 2019

Hallo,

kein Problem, dann eben so:

Code:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.Color = xlNone
Set isect = Application.Intersect(Target, Range("J4:DJ2000"))
If Not isect Is Nothing Then
Columns(Target.Column).Interior.Color = 14281213
Rows(Target.Row).Interior.Color = 14281213
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

FabjecK · 24. Januar 2019

Danke, so klappt es.

Gruß
FabjecK

Office: Aktive Spalte und Zeile farblich hervorheben

Aktive Spalte und Zeile farblich hervorheben

Aktive Spalte und Zeile farblich hervorheben

Aktive Spalte und Zeile farblich hervorheben

Aktive Spalte und Zeile farblich hervorheben - Similar Threads - Aktive Spalte Zeile

Zugriff auf andere Excel Datei ohne aktives Öffnen

Im Endlosformular aktiven Datensatz hervorheben

Nur ein aktives Optionsfeld

Pivot Table Felder - Alle und Aktiv nicht angezeigt

Aktive Zeile dauerhaft markieren

Immer aktives Blatt versenden.

vba-code für aktive spalte (zeile)