Aktive Zeile farbig markieren

stephan · 2018-03-30T12:23:20+00:00

hallo zusammen, ich habe mich im internet schon etwas eingelesen, aber noch nicht die lösung für mein problem gefunden. ich habe eine tabelle mit abwechselnd farbigen zeilen (per code =REST(ZEILE();2)=0 und =REST(ZEILE();2)=1) auf weiß und blau hinterlegt. ich möchte, dass die jeweils aktive zeile beim anklicken farbig markiert wird. einen vba code hab ich zwar schon mal gefunden, der funktioniert aber nur in leeren zeilen, nicht in den schon farbig definierten. kann mir bitte jemand helfen? vielen dank vorab.

Hallo Stephan,
ich habe in beiliegender Datei für den Tabellenbereich A1:E6 die Formatierung mal nachgebaut. Über die bedingte Formatierung erhalten die Zeilen abwechselnd einen weißen und blauen Hintergrund.
Über das SelectionChange-Ereignis gebe ich der gerade ausgewählten Zelle einen Namen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="AktZelle", RefersToR1C1:=Target
End Sub

In der bedingten Formatierung habe ich als erste Formatierung einen gelben Hintergrund eingestellt, der dann genommen wird, wenn die Zeilen-Nr. mit der Zeilen-Nr. der Zelle mit dem Namen "AktZelle" entspricht(=ZEILE(A1)=ZEILE(AktZelle)) Somit wird die aktuell ausgewählte Zeile markiert.
Ist es so, wie Du es wolltest?
https://www.herber.de/bbs/user/120769.xlsm
Gruß
Robert

Hallo Daniel,
natürlich funktioniert es bei Dir. Du hast ja auch mit der Anweisung On Error Resume Next das Makro angewiesen, bei einem Fehler nicht anzuhalten sondern weiter zu machen.
Außerdem habe ich nicht behauptet, Du hättest die Variable LastCell nicht deklariert. Vielmehr hat die Variable LastCell beim ersten Lauf des Makros noch keinen Wert. Der wird erst in der letzten Zeile vor End Sub zugewiesen.
Also kann dem Range-Objekt LastCell beim ersten Lauf des Makros auch kein Hintergrund zugeordnet werden. Einen Hintergrund (Variable Aqua), der im übrigen auch erst eine Zeile später einen Wert erhält. Da du aber dem Code mit der Zeile On Error Resume Next sagst, er soll bei Auftreten eines Fehlers einfach weitermachen, bemerkst Du das gar nicht.
Gruß
Robert

Forumthread: Aktive Zeile farbig markieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial