Automatisch Zeilen Farbig unterlegen mit Button
28.12.2018 21:41:52
Michaeel
Ziel:
Es sollen Zeilen in einer Tabelle farbig unterlegt werden (Grün: Color = 5296274)
Zustand:
Es gibt einen (bzw. etliche) CommandButton die alle unterschiedlich Beschriftet sind.
ABC; FED; HGT; OPZT;KL; .....usw.
Diese Buchstabenkombinationen kommen auch in der Tabelle am Anfang und am Ende einer Zeile vor. (Spalte A und S ab Zeile 7) Jede Kombi kommt 20-30x in der Tabelle vor.
Der angestrebte Ablauf:
Der Code sollte zuerst kontrollieren ob es bereits irgendwo in der Tabelle "Grün!" unterlegte Zeilen gibt, (Es gibt auch andere Farben, die aber nicht geändert werden sollen)
Wenn ja: diese Zeilen zurück formatieren auf "KEINE FARBE"
dann nachschauen welche Beschriftung der angeklickte CommandButton hat, und alle Zeilen mit den entsprechenden Buchstaben, von Spalte A bis S, Grün formatieren.
Bislang habe ich diese Aufgabe mit 3 dutzend unterschiedlichen Makros, über Range Bereiche gelöst. Leider hat das den Nachteil, das bei einer Änderung in der Tabelle, alle Makros umgeschrieben werden müssen.
Vielen Dank für eure Hilfe in voraus
Michael