Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Farbig bei aktive Zelle"
Nur nichtfarbige Zellen schützen Label und Zellen farbig markieren
Befindet sich die aktive Zelle in einem bestimmten Bereich? Adressdaten der aktiven Zelle über VBA feststellen
Ab der aktiven Zelle summieren Drei Zellen rechts der aktiven Zelle markieren
Aktiven Drucker in UserForm wechseln Verknüpfungen der aktiven Mappe listen
Während der Laufzeit aktives Modul löschen Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen