Farbig bei aktiver Zelle

Bild

Betrifft: Farbig bei aktiver Zelle von: Andre
Geschrieben am: 08.03.2005 10:40:34

Hallo alle zusammen,
ich möchte gern eine Zelle farbig hinterlegen in der Spalte A, wenn ich in irgend einer aktiven Zelle bin. Zum Beispiel: aktive Zelle ist J8, dann soll die Zelle A8 farbig sein, aktive Zelle G1, dann A1 farbig usw.

Ich hoffe mir kann jemand helfen.
Danke im voraus!

Bild


Betrifft: AW: Farbig bei aktiver Zelle von: u_
Geschrieben am: 08.03.2005 11:03:36

Hallo,
in das Klassenmodul der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
  Columns(1).Interior.ColorIndex = xlNone
  Cells(Target.Row, 1).Interior.ColorIndex = 19
  Application.ScreenUpdating = True
End Sub

Gruß


Bild


Betrifft: Wow, auf die Sekunde gleichzeitig! ;-) (oT) von: Martin Beck
Geschrieben am: 08.03.2005 11:07:52




Bild


Betrifft: aber ich 3 Min. schneller von: u_
Geschrieben am: 08.03.2005 11:24:57




Bild


Betrifft: AW: Und ich habe mich verlesen :-( (oT) von: Martin Beck
Geschrieben am: 08.03.2005 11:27:27




Bild


Betrifft: AW: Farbig bei aktiver Zelle von: Martin Beck
Geschrieben am: 08.03.2005 11:06:36

Hallo Andre,

wenn Du sonst keine Farben in Spalte A hast, versuche mal


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(1).Interior.ColorIndex = xlAutomatic
Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub


Der Code gehört nicht in ein normales Modul, sondern Du mußt im Projektexplorer auf die gewünschte Tabelle doppelclicken und den Code in das sich öffnende Fenster kopieren.

Gruß
Martin Beck


Bild


Betrifft: AW: Danke für die schnelle Hilfe von: Andre
Geschrieben am: 08.03.2005 11:37:10

Super funzt!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Farbig bei aktiver Zelle "