Wert in bedingter formatierung ersetzen

nagusMC · 2024-09-11T16:17:22+00:00

Hi zusammen, ich habe einen Jahres Kalender gebaut, in dem die Wochen- und Feiertage mit einer bedingten Formatierung per Formel angepasst werden. Das ganze sind 12 Blöcke mit jeweils zwei Formatierungen pro Block, sowie weiteren Formatierungen (sollten so 8 pro block sein) um weitere Prüfungen vorzunehmen. Eine Formel für die bedingte Formatierung sieht so aus: =ODER(WOCHENTAG(N$3;11)=6;(WOCHENTAG(N$3;11)=7);WENN(ISTFEHLER(SVERWEIS(N$3;Feiertage!$c$2:$c$15;1;FALSCH));FALSCH;SVERWEIS(N$3;Feiertage!$c$2:$c$15;1;FALSCH))) Ich möchte jetzt in allen bedingten Formatierungen den Teil Feiertage!$c$2:$c$15 gegen Feiertage!$d$2:$d$15 ersetzen. Wie bekomme ich das hin? VBA habe ich eher bescheidene Kentnisse ....

Erstmal Danke Daniel!
Das ist genau das was ich eigentlich wollte ;-)

Ich kämpfe allerdings noch mit dem Script, weil es mir Fehler wirft ....
Da ich keine Ahnung von VBA habe: ich packe das Script einfach in den Code Editor und lasse es laufen?

Das sind die Fehler die er dann wirft

Line #1: ';' expected.
Sub test()

Line #2: ';' expected.
Dim FC As FormatCondition

Line #2: ';' expected.
Dim FC As FormatCondition

Line #2: ';' expected.
Dim FC As FormatCondition

Line #3: ';' expected.
Dim alt As String

Line #3: ';' expected.
Dim alt As String

Line #3: ';' expected.
Dim alt As String

Line #4: ';' expected.
Dim neu As String

Line #4: ';' expected.
Dim neu As String

Line #4: ';' expected.
Dim neu As String

Line #10: ';' expected.
For Each FC In ActiveSheet.Cells.FormatConditions

Line #10: ';' expected.
For Each FC In ActiveSheet.Cells.FormatConditions

Line #10: ';' expected.
For Each FC In ActiveSheet.Cells.FormatConditions

Line #10: ';' expected.
For Each FC In ActiveSheet.Cells.FormatConditions

Line #11: ';' expected.
If FC.Formula1 Like "*" & alt & "*" Then

Line #11: ';' expected.
If FC.Formula1 Like "*" & alt & "*" Then

Line #11: ';' expected.
If FC.Formula1 Like "*" & alt & "*" Then

Line #11: ';' expected.
If FC.Formula1 Like "*" & alt & "*" Then

Line #12: ';' expected.
FC.Modify xlExpression, , Replace(FC.Formula1, alt, neu)

Line #12: Expression expected.
FC.Modify xlExpression, , Replace(FC.Formula1, alt, neu)

Line #13: ';' expected.
End If

Line #15: ';' expected.
End

@Yal, ursprünglich wollte ich das genau so machen wie Du es beschrieben hast. Ich habe dann aber festgestellt, dass ich mehrere Jahre im Zugriff brauche. Daher dann einfach pro Jahr den Bezug zu den Feiertagen ändern.

Thx
Nagus

HI

berechne das Datum der jeweiligen Zelle so, dass es für alle Zellen allgemeingültig ist.
also nicht N3, sondern über die Funktion DATUM(Jahr;Monat;Tag)
das Jahr steht in $A$2
als Tag nimmst du Spalte()-13 (dein Kalender beginnt in Spalte 14, dh du brauchst für Spalte N die 1)
den Monat auszurechnen wird etwas komplizierter und erfordert, dass du für jeden Monat die gleiche Anzahl Zeilen für die Mitarbeiter hast.
ein Monat umfasst bei dir 18 Zeilen (2 Überschrift mit Datum, 15 Mitarbeiter, 1 Trennzeile) und das ganze beginnt in Zeile 3
daher kannst du die Monatsnummer so berechnen: Quotient(Zeile()-3;18)+1 (Quotient ist der Ganzahlwert einer Division

dh statt N3 nimmst du in deiner Formel dann DATUM($A$2;QUOTIENT(Zeile()-3;18)+1;Spalte()-13)
und damit die Zwischenzeile nicht grau wird, fügst du als Bedingung hinzu: REST(ZEILE();18)>2

wenn du das hinzufügst, dann kannst du deine Bedingte Formatierung für den ganzen Kalender gültig machen und brauchst ihn nicht in Blöcke zu unterteilen.

und noch ein Tipp: seit Excel 2010 vermeidet man Fehler beim Sverweis nicht mehr mit:
Wenn(IstFehler(SVerweis(...));"xxx";SVErweis(...))
sondern mit
WennFehler(SVErweis(...);"xxx")
und seit Excel 365 kann man auch den XVERWEIS verwenden.
oder du sparst dir das ganze, denn die Bedingte Formatierung verarbeitet auch den Fehler und betrachtet ihn wie ein FALSCH. dh wenn im Fehlerfall des SVerweises keine Färbung passieren soll, dann kannst du die Fehlerprüfung auch ganz weglassen.
oder du prüfst mit ZählenWenn, ob das Datum in der Feiertagsliste vorhanden ist.

Gruß Daniel

Wert in bedingter formatierung ersetzen

Forumthread: Wert in bedingter formatierung ersetzen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wert in bedingter formatierung ersetzen

Forumthread: Wert in bedingter formatierung ersetzen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread