aktive Zelle in SpalteA farbig

[omron2003]

Hallo Forum,

Ich suche eine Möglichkeit die aktive Zelle in SpalteA farbig darzustellen,
bisher nutze ich folgenden Code, dieser färbt aber jede aktive Zelle auf dem Tabellenblatt Gelb ein.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'----------------------------------------------------------------------
'--- aktive Zelle varbig hinterlegen                                ---
'----------------------------------------------------------------------
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

Besten Dank im Voraus
omron2003

[BoskoBiati]

Hi,

z.B. so:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'----------------------------------------------------------------------
'--- aktive Zelle farbig hinterlegen                                ---
'----------------------------------------------------------------------
UsedRange.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

[oee]

Und was genau soll das sein, "die aktive Zelle in SpalteA" ???

[omron2003]

aktive Zelle ist die Zelle die in der SpalteA geraden markiert ist  (in der sich der Cursor befindet).

[oee]

Ich glaube, was DU meinst, heisst auf Deutsch: "Wenn die aktive Zelle sich in der Spalte A befindet, ....."

[omron2003]

Edgar,
mit deinem Code  wird auch weiterhin die Zelle im Tabellenblatt farbig hinterlegt in der sich gerade der Cursor befindet (also bei alle Zellen des Blattes ist dies Möglich).
Ich suche aber einen Weg nur in der SpalteA die Zelle in der sich gerade der Cursor befindet farbig zu hinterlegen.

[oee]

" hiermit " ?????
WOMIT denn ????

[BoskoBiati]

Hi,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
if intersect(target,columns(1)) is nothing then exit sub
Columns(1).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

[HKindler]

Hi,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Columns(1).Interior.ColorIndex = xlNone
if intersect(target,columns(1)) is nothing then exit sub
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

Sonst wird die Zelle in Spalte A nicht entfärbt, falls eine andere Spalte ausgewählt wird.

[omron2003]

Hi,
der Code funktioniert, das einzige wenn ich auf die Zeilen Beschriftung (links neben SpalteA) komme wird die ganze Zeile eingefärbt und geht auch nichtmehr beim verlassen der Zeile nicht entfärbt.
Kann man das eventuell noch unterbinden?

Besten Dank im Voraus
BFP
 

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Columns(1).Interior.ColorIndex = xlNone
if intersect(target,columns(1)) is nothing then exit sub
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub