Ich möchte gerne wenn eine oder mehere Zellen die farbe rot haben, das sich die Schriftfarbe im register (Tabellennahme) auch rot einfärbt.
Es ist auch möglich das die Zellen auch nur gelb sind, dann sollte die Schriftfarbe vom register auch gelb sein.
Ist so was möglich?
Ich arbeite noch daran eine Beispiel Tabelle zu erstellen und hoch zu laden, aber vieleicht hat ja schon einer eine Idee!
Wie geschrieben wenn das Beispiel fertig ist werde ich es hochladen
04.11.2016, 01:03 (Dieser Beitrag wurde zuletzt bearbeitet: 04.11.2016, 01:03 von Käpt'n Blaubär.)
Hallo,
Zitat:Ich möchte gerne wenn eine oder mehere Zellen die farbe rot haben, das sich die Schriftfarbe im register (Tabellennahme) auch rot einfärbt. Es ist auch möglich das die Zellen auch nur gelb sind, dann sollte die Schriftfarbe vom register auch gelb sein.
da ich nicht annehme, daß der zu überwachende Zellbereich das ganze Blatt umfassen soll,
solltest Du auch den in Frage kommenden Bereich definieren.
Im Übrigen, bei rund 170 gemachten Beiträgen sollte man eigentlich davon ausgehen dürfen,
daß Dir solch triviale Dinge bekannt sind.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Moin!
Das Ändern der Zellenfüllfarbe ist kein für Excel auswertbares Ereignis.
Daher ist ein wahrscheinlich von Dir gewünschter Automatismus nicht möglich.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
05.11.2016, 12:42 (Dieser Beitrag wurde zuletzt bearbeitet: 05.11.2016, 12:42 von Käpt'n Blaubär.)
Hallo Ralf,
in einem anderen Forum habe ich vor ein paar Tagen mal sowas vorgeschlagen.
Der TE hatte xl2002.
Zitat:Sub Farbe_Auf_TAB()
Dim Farbe As Long, Sheets As Worksheet
Farbe = Cells(1, 1).Interior.ColorIndex 'Bereichsauswahl: hier Zelle A1
If Farbe = 3 Then _
ActiveWorkbook.Sheets("Tabelle1").Tab.ColorIndex = 3 'Farbauswahl: hier "rot"
If Farbe = 6 Then _
ActiveWorkbook.Sheets("Tabelle1").Tab.ColorIndex = 6 'Farbauswahl: hier "gelb"
End Sub
... aber da war klar, daß der TE das Makro per Button anstoßen wollte. :19:
wegen privater Verpflichtungen habe ich jetzt keine Zeit für Anpassungen.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
05.11.2016, 20:59 (Dieser Beitrag wurde zuletzt bearbeitet: 05.11.2016, 21:00 von michel34497.)
Hallo Leute,
danke für euer intresse und antworte.
Um die fragen zu beantworten:
1. Die Farbe für die Zellen kommen aus einer BedingtenFormartierung
2. Der Zellen bereich der eingefäbrt wird ist zurzeit von B10 bis D38
Zu 1 :
Im Internet habe ich gesucht und erfahren das wenn die Zellen, über eine BedingteFormatierung eingefärbt werden
der ColorIndex NICHT ausgelesen werden kann. Man soll das Formel ergebniss auswerten ( Dort habe ich auch problem).
Deswegen stelle ich mal die FRAGE ist es möglich die BedingtenFormartierung so wie sie jetzt ist in VBA umzuwandeln
so das der Bereich von B10 bis D38 eingefärbt wird?
Dies sollte so wie bei BedingtenFormartierung funktionieren.
Sollte es doch eine möglichkeit geben die Farbe aus der BedingtenFormartierung auszulesen
Zur Tabelle:
In Test1 wird ab G10 das Datum eingetragen und dann ändert sich die Zellen Farbe in B10 bis G10 usw. so soll es dann auch im Test2 sein.
Zitat:Deswegen stelle ich mal die FRAGE ist es möglich die BedingtenFormartierung so wie sie jetzt ist in VBA umzuwandeln
meines Wissens geht das nicht. Vorrangige Priorität hat hier die BedingteFormatierung.
Nachrangig ist dann zwangsläufig VBA. Ich lasse mich aber gerne eines Besseren belehren.
Also, meinem Wissensstand entsprechend ist die Antwort ein Klares ENTWEDER / ODER.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Ich denke das die BedingteFormatierung löschen werde und eine VBA Lösung brauche.
Nur wie sieht die Lösung aus?
Aufgabenstellung ist dann jetzt
In Spalte E10-E38 sind die intervalle (Monate) eingetragen
In Spalte F10-F38 wann die nächste Wartung fällig ist
In Spalte G10-G38 das Datum wenn Erledigt und in Spalte H10-H38 der Name
Nun soll berechnet und überprüft werden, wann die nächste inspektion fällig ist.
Eine Woche vor Termin soll die entsprechende Zeile B-D gelb eingefärbt werden, ab Fälligkeitstag wird die Zeile rot eingefärbt.
Ist eine oder mehere Zelle rot soll auch das Register rot eingefärbt werden, sind die Zellen nur gelb dann auch register gelb.
Keine einfärbung der Zellen Register grün.
Bei eingabe von Datum und Name sollte der Code gleich wieder starten und die Zellen anders (ohne Färbung) einfärben.
