Ich stehe wieder einmal vor einem Problem, bei welchem ich auf eure Unterstützung angewiesen bin:
Ich bearbeite eine Geschäfts-Pendenzenliste, welche mehr als 3 dedingte Formatierungen beinhaltet. Die Bedingungen sind vom Inhalt mehreren Zellen abhängig. Nun zu meinem Beispiel:
Diese Bedingungen hatte ich bis jetzt unter der Bedingten Formatierung eingestellt:
Für Bereiche A:D, F:H
=UND(RECHTS(A4;2)"00";G4="p") dann Schriftfarbe schwarz schmal (1) (Standard)
=UND(RECHTS(A4;2)="00";G4="p") dann Schriftfarbe schwarz (1) fett
=UND(RECHTS(A4;2)="00";G4="e") dann Schriftfarbe grau (16) fett
=UND(RECHTS(A4;2)"00";G4="e") dann Schriftfarbe grau (16) schmal
*Zusätzlich kommen folgende Formatierungen neu dazu:
Für Bereich E:E
* =UND(RECHTS(A4;2)="00";E4="hf";G4="p") dann Schriftfarbe grün (43) fett
* =UND(RECHTS(A4;2)="00";E4="sf";G4="p") dann Schriftfarbe orange (45) fett
* =UND(RECHTS(A4;2)="00";E4="AMü";G4="p") dann Schriftfarbe lila (7) fett
* =UND(RECHTS(A4;2)="00";E4="PV";G4="p") dann Schriftfarbe violett (13) fett
=UND(RECHTS(A4;2)="00";G4="e") dann Schriftfarbe grau (16) fett
* =UND(RECHTS(A4;2)"00";E4="hf";G4="p") dann Schriftfarbe grün (43) schmal
* =UND(RECHTS(A4;2)"00";E4="sf";G4="p") dann Schriftfarbe orange (45) schmal
* =UND(RECHTS(A4;2)"00";E4="AMü";G4="p") dann Schriftfarbe lila (7) schmal
* =UND(RECHTS(A4;2)"00";E4="PV";G4="p") dann Schriftfarbe violett (13) schmal
=UND(RECHTS(A4;2)"00";J4="e") dann Schriftfarbe grau (16) schmal
* =UND(RECHTS(A4;2)="00";ODER(E4"hf;E4"sf";E4"AMü";E4"PV");G4="p") dann
Schriftfarbe schwarz (1) fett
* =UND(RECHTS(A4;2)"00";ODER(E4"hf;E4"sf";E4"AMü";E4"PV");G4="p")
dann Schriftfarbe schwarz (1) schmal
Erläuterung:
Für Spalten A:D und F:H:
Wenn A4 (2 Zeichen von rechts) = "00" ergibt und der Inhalt von G4 = "p" ist, dan muss die Schrift von A4:D4; F4:H4 fett schwarz formatiert werden
usw.
Für Spalte E:
Wenn A4 (2 Zeichen von rechts) = "00" ergibt, der Inhalt von E4 = "hf" ist und der Inhalt von G4 = "p" ist, dan muss die Schrift in E4 fett grün formatiert werden
usw.
Ich will nun alle Bedingungen in ein Makro einbauen, so dass nach einer Eingabe in den definierten Bereichen A:D, E:E und F:H die entsprechenden Formatierungen automatisch übernommen werden, z.B. mit folgender Anweisung:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:H")) Is Nothing Then
Weiss jemand, wie ich die Bedingungen sinnvoll mit einem Makro zum Laufen bringe?
Ich hoffe es meldet sich jemand, trotz der warmen Ferienzeit!
Es grüsst Euch
Stefan