Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Akutelle Zeile farblich hinterlegen, aber ..

Akutelle Zeile farblich hinterlegen, aber ..
Markus
Hallo liebe Excel-Stadt,
das beiliegende Makro funktioniert bestens, aber ....
Leider werden meine bestehenden Farben für Zellen gelöscht.
Ich wäre dankbar, wenn jemand das Makro so ändern könnte, das die bestehende(n) Farben wiederhergestellt würden.
Danke jetzt schon für Hilfe
Markus

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Alle Farben in Tabelle löschen
Cells.Interior.ColorIndex = xlNone
' neue Zeile einfärben
Rows(Target.Row).Interior.ColorIndex = 33
End Sub

Anzeige
AW: Akutelle Zeile farblich hinterlegen, aber ..
26.07.2012 08:35:30
MatthiasG
Hallo Markus,
wie viele verschiedene Farben kommen denn maximal vor in einer Tabellenzeile?
Gruß Matthias
AW: Akutelle Zeile farblich hinterlegen, aber ..
26.07.2012 08:51:56
Markus
Hallo Matthias,
6 Farben kommen vor, +3 bedingte Formate.
Gelb, was mir am besten gefallen würde nicht.
Danke jetzt schon.
Markus
AW: Akutelle Zeile farblich hinterlegen, aber ..
26.07.2012 08:53:00
Markus
Die Frage ist noch offen
Anzeige
AW: mit Rahmen?
26.07.2012 08:59:45
hary
Hallo Markus
Waere ein Rahmen eine alternative?
Achtung loescht aber alle Linien.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.LineStyle = xlNone
Rows(ActiveCell.Row).BorderAround Weight:=xlThick
End Sub

gruss hary
Anzeige
AW: mit Rahmen?
26.07.2012 09:12:33
Markus
Hallo Hary,
ja, leider sind auch noch Linien im Spiel.
Diese sind mir fast wichtiger als die Farben.
Markus
hier ein Beispiel ...
26.07.2012 09:03:15
Matthias
Hallo Markus
Klicke einfach mal in irgend eine leere Zeile und dannach in eine Zeile in der schon Farben vorhanden sind.
https://www.herber.de/bbs/user/81163.xls
Gruß Matthias
Anzeige
AW: hier ein Beispiel ...
26.07.2012 09:10:51
Markus
Hallo Matthias,
ja, eigentlich super, aber die Markierung (blau) wird leider nicht wieder gelöscht!
Markus
AW: hier ein Beispiel ...
26.07.2012 09:15:38
hary
Hallo Markus
Dann geht es nur wenn du es in eine andere Tabelle auslagerst und wieder zurueck holst.
gruss hary
AW: @Matthias
26.07.2012 09:12:47
hary
Moin Matthias
Es beibt aber die Farbe bestehen. Ich glaube Markus moechte die aktuelle Zeile zur besseren sichtbarkeit faerben.
gruss hary
Anzeige
AW: @Matthias
26.07.2012 09:16:31
Markus
Hallo Matthias und Hary,
ja, genau!
In einer Tabelle mit über 1500 Zeilen und 17 Spalten wäre es nur zur besseren Lesbarkeit gedacht.
Nichts anderes
Markus
Zeile färben und entfärben, die Zweite ...
26.07.2012 10:10:22
Matthias
Hallo zusammen
https://www.herber.de/bbs/user/81164.xls
Gruß Matthias
Anzeige
...und die dritte
26.07.2012 10:23:21
MatthiasG
Hallo,
hier mein Versuch:
https://www.herber.de/bbs/user/81165.xls
Es wird hier noch der Saved-Status gemerkt (keine Speicherabfrage beim Schließen, wenn nur Zellfarben durch den Code geändert wurden).
Was bei uns beiden noch nicht klappt, ist das Erscheinen von zwei gefärbten Zellen nach dem Öffnen der Datei. Hier müsste man noch mit dem Workbook_Open()-Ereignis arbeiten (Worksheet_Activate wird beim Öffnen nicht ausgelöst).
Gruß Matthias
Anzeige
Danke
26.07.2012 10:42:27
Markus
Hallo,
genau das was ich suchte!
Super, Danke
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige