Frage zum Farbwechsel bei Cursorbewegung

Forumthread: Frage zum Farbwechsel bei Cursorbewegung
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:27:13

maine-coon

Mit dieser Zeile
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Interior.ColorIndex = 36
wird die aktive Zeile der Spalten 1 bis 7 gefärbt. Klasse.
Aber wie kann ich die Zeile, die ich verlassen habe wieder weiß färben?
Gruß Achim

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:30:44

Matthias
AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:36:47

maine-coon
AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:32:19

Hajo_Zi

AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:30:44

Matthias

Hallo Achim,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Interior.ColorIndex = 36
End Sub

Gruß Matthias

AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:36:47

maine-coon

Hallo Matthias,
vielen Dank für die schnelle Lösung zu meinem Anliegen.
Das funktioniert wirklich gut.
Gruß Achim

AW: Frage zum Farbwechsel bei Cursorbewegung

29.07.2005 13:32:19

Hajo_Zi

Hallo Achim,
das ist nur sehr wenig von Deinem Code. Merke Dir die aktuelle Zeile und setze es damit wieder zurück XlNone
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.