Farbig bei aktive Zelle

Bild

Betrifft: Farbig bei aktive Zelle
von: Andre
Geschrieben am: 23.03.2005 16:05:25
Hallo alle zusammen,
ich habe folgendes Makro


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

das bewirkt, das bei einer aktiven Zelle die Spalte A1 bis A65536 farbig hinterlegt wird.
Nun möchte ich gern, dass ebenfalls eine Zelle von A1- IV farbig hinterlegt ist.
Ich hoffe, mir kann jemand einen Tip geben.
Danke im voraus!
Bild

Betrifft: AW: Farbig bei aktive Zelle
von: Reinhard
Geschrieben am: 23.03.2005 16:10:06
Hallo Andre,

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

Gruß
Reinhard
Bild

Betrifft: AW: Farbig bei aktive Zelle
von: Martin Beck
Geschrieben am: 23.03.2005 16:10:40
Hallo Andre,
meinst Du so:

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

Wenn nicht, schreibe mal, was für Zellen farbig markiert werden sollen, wenn z.B. E3 markiert wird.
Gruß
Martin Beck
Bild

Betrifft: AW: Farbig bei aktive Zelle
von: Andre
Geschrieben am: 23.03.2005 16:44:19
Danke für eure schnelle Hilfe, es klappt wunderbar, wie müste das Makro aussehen, wenn nicht in der Zeile A sonder in Zeile z.B. H die Zelle farbig sein soll? Ich habe versucht Row 1 mit 2 zuversehen, dann bleibt die Zeile A farbig, was nicht sein soll. Wäre euch dankbar, wenn ihr mir den Lösungsanstz gibt!
Bild

Betrifft: AW: Farbig bei aktive Zelle
von: Andre
Geschrieben am: 23.03.2005 16:44:29
Danke für eure schnelle Hilfe, es klappt wunderbar, wie müste das Makro aussehen, wenn nicht in der Zeile A sonder in Zeile z.B. H die Zelle farbig sein soll? Ich habe versucht Row 1 mit 2 zuversehen, dann bleibt die Zeile A farbig, was nicht sein soll. Wäre euch dankbar, wenn ihr mir den Lösungsanstz gibt!
Bild

Betrifft: AW: Farbig bei aktive Zelle
von: Martin Beck
Geschrieben am: 23.03.2005 16:53:03
Hallo Andre,
Zeile A gibt's nicht. Meinst Du Spalte A oder Zeile 1?
In den Codezeilen
Cells(Target.Row, 1).Interior.ColorIndex = 19
Cells(1, Target.Column).Interior.ColorIndex = 19
kannst Du jeweils statt der "1" mal eine andere Zahl, z.B. 3 eintragen Dann siehst Du, wie der Code funktioniert.
Gruß
Martin Beck
Bild

Betrifft: AW: habe es gelöst wie folgt
von: Andre
Geschrieben am: 23.03.2005 17:02:40
Ich habe mich etwas falsch ausgedrück. Ich meinte die Zeile z.B.2. Habe es selbst gelöst, wie folgt:

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

Nochmals Dank!!!
 Bild

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