Clever-Excel-Forum

Hallo zusammen,

habe ein Problem mit der Bedingten Formatierung:

In meiner Excel realisiere ich eine Terminplanung bei der ich je nach Eingabe in die ungeraden Zellen eine Farbe hinterlege, ist nichts eingetragen bleiben die ungeraden Zellen grau und die gerade weis.
Den eingaben Vergleich und die Farben für Hintergrund und Schrift hole ich mir über ein Tabellenblatt (Parameter)
Jetzt möchte ich aber auch das wenn in die Zeile C7:GF7 Eingaben die mit dem Bereich Tabelle(Parameter A25:A40) übereinstimmen nicht nur die Zelle sondern auch die Spalt ab einer Zeile tiefer, bzw eine Zelle von bis in dieser Spalte einfärbt. Nach dem C7:GF7 wieder leer ist soll wieder die ungerade (grau) und Gerade (weis) Regel gelten.

Dies ist der Code der für die Einfärbung der ungeraden Zeilen funktioniert:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim RaBereich As Range                          ' Variable für Bereich

    Dim RaZelle As Range                            ' Variable für Zelle

    Dim RaBereich2 As Range                          ' Variable für Bereich2

    Dim RaZelle2 As Range                            ' Variable für Zelle2

    'Set RaBereich = Range("C9:GF9, C11:GF11")       ' Bereich der Wirksamkeit

    ' noch mehr Bereiche

    Set RaBereich = Union(Range("C13:GF13 , C9:GF9, C11:GF11, C15:GF15, C17:GF17 , C19:GF19"), _

       Range("C21:GF21, C23:GF23, C25:GF25, C27:GF27 , C29:GF29 , C31:GF31"), _

        Range("C33:GF33 , C35:GF35 , C37:GF37 , C39:GF39 , C41:GF41 , C43:GF43"), _

       Range("C45:GF45 , C47:GF47, C49:GF49 , C51:GF51 , C53:GF53"), _

        Range("C55:GF55 , C57:GF57 , C59:GF59 , C61:GF61 , C63:GF63"), _

       Range("C65:GF65, C67:GF67 , C69:GF69 , c71:gf71 , C73:GF73 , C75:GF75"), _

       Range("C77:GF77 , C79:GF79, C81:GF81 , C83:GF83 , C85:GF85"), _

       Range("C87:GF87 , C89:GF89, C91:GF91"))

    Set RaBereich = Intersect(RaBereich, Target)

    If Not RaBereich Is Nothing Then

        For Each RaZelle In RaBereich

            With RaZelle

                Select Case UCase(.Value)           ' Umwandlung der Eingabe in Großbuchstaben

                    Case Sheets("Parameter").Range("E1").Value  'Für Leer Zellen

                        .Interior.ColorIndex = Sheets("Parameter").Range("f1")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("g1")

                    Case Sheets("Parameter").Range("E3").Value  'PKG20

                        .Interior.ColorIndex = Sheets("Parameter").Range("F3")        ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("G3")              ' Schriffarbbe schwarz

                        .NumberFormat = "General"   ' Zellenformat Standard

                    Case Sheets("Parameter").Range("e4").Value 'PKG40

                        .Interior.ColorIndex = Sheets("Parameter").Range("f4")     ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g4")              ' Schriffarbe schwaz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e5").Value 'PVM20

                        .Interior.ColorIndex = Sheets("Parameter").Range("f5")         ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g5")                  ' Schriffarbbe schwarz

                        .NumberFormat = "General"   ' Zellenformat Standard

                    Case Sheets("Parameter").Range("e6").Value  'PVM40

                        .Interior.ColorIndex = Sheets("Parameter").Range("f6")    ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g6")              ' Schriffarbe automatisch

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e7").Value  'PM20

                        .Interior.ColorIndex = Sheets("Parameter").Range("f7")        ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g7")              ' Schriffarbbe schwarz

                        .NumberFormat = "General"   ' Zellenformat Standard

                    Case Sheets("Parameter").Range("e8").Value   'PM40

                        .Interior.ColorIndex = Sheets("Parameter").Range("f8")     ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g8")              ' Schriffarbe automatisch

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e9").Value 'CMDP20

                        .Interior.ColorIndex = Sheets("Parameter").Range("f9")         ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g9")                  ' Schriffarbbe schwarz

                        .NumberFormat = "General"       ' Zellenformat Standard

                    Case Sheets("Parameter").Range("e10").Value  'CMDP40

                        .Interior.ColorIndex = Sheets("Parameter").Range("f10")            ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g10")                  ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e11").Value  'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f11")            ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g11")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e12").Value   'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f12")           ' Füllfarbe Pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g12")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e13").Value   'Massage

                        .Interior.ColorIndex = Sheets("Parameter").Range("f13")       ' Füllfarbe Blau

                        .Font.ColorIndex = Sheets("Parameter").Range("g13")

                        .NumberFormat = "General"       ' Zellformat nicht sichtbar

                    Case Sheets("Parameter").Range("e14").Value   'Fussreflex

                        .Interior.ColorIndex = Sheets("Parameter").Range("f14")     ' Füllfarbe Grün

                        .Font.ColorIndex = Sheets("Parameter").Range("g14")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e15").Value   'Fusspflege

                        .Interior.ColorIndex = Sheets("Parameter").Range("f15")     ' Füllfarbe Grün

                        .Font.ColorIndex = Sheets("Parameter").Range("g15")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e16").Value 'Podologie

                        .Interior.ColorIndex = Sheets("Parameter").Range("f16")      ' Füllfarbe Hellblau

                        .Font.ColorIndex = Sheets("Parameter").Range("g16")              ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e17").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f17")       ' Füllfarbe Hellblau

                        .Font.ColorIndex = Sheets("Parameter").Range("g17")              ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e18").Value   'EM

                        .Interior.ColorIndex = Sheets("Parameter").Range("f18")              ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("g18")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e19").Value  'VM

                        .Interior.ColorIndex = Sheets("Parameter").Range("f19")              ' Füllfarbe Hellblau

                        .Font.ColorIndex = Sheets("Parameter").Range("g19")               ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e20").Value  'HM

                        .Interior.ColorIndex = Sheets("Parameter").Range("f20")               ' Füllfarbe hellblau

                        .Font.ColorIndex = Sheets("Parameter").Range("g20")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e21").Value  'BM

                        .Interior.ColorIndex = Sheets("Parameter").Range("f21")               ' Füllfarbe hellblau

                        .Font.ColorIndex = Sheets("Parameter").Range("g21")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e22").Value   'HGK

                        .Interior.ColorIndex = Sheets("Parameter").Range("f22")           ' Füllfarbe weis

                        .Font.ColorIndex = Sheets("Parameter").Range("g22")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e23").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f23")            ' Füllfarbe weis

                        .Font.ColorIndex = Sheets("Parameter").Range("g23")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e24").Value  'EKG

                        .Interior.ColorIndex = Sheets("Parameter").Range("f24")           ' Füllfarbe creme

                        .Font.ColorIndex = Sheets("Parameter").Range("g24")              ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e25").Value  'Ultra

                        .Interior.ColorIndex = Sheets("Parameter").Range("f25")              ' Füllfarbe creme

                        .Font.ColorIndex = Sheets("Parameter").Range("g25")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e26").Value  'BAD

                        .Interior.ColorIndex = Sheets("Parameter").Range("f26")               ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("g26")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e27").Value  'HAUSBESUCH

                        .Interior.ColorIndex = Sheets("Parameter").Range("f27")               ' Füllfarbe creme

                        .Font.ColorIndex = Sheets("Parameter").Range("g27")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e28").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f28")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g28")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e29").Value  'KG

                        .Interior.ColorIndex = Sheets("Parameter").Range("f29")             ' Füllfarbe Hellgrün

                        .Font.ColorIndex = Sheets("Parameter").Range("g29")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e30").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f30")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g30")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e31").Value  'Bandage

                        .Interior.ColorIndex = Sheets("Parameter").Range("f31")            ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g31")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e32").Value  'LYM60

                        .Interior.ColorIndex = Sheets("Parameter").Range("f32")              ' Füllfarbe gelb

                        .Font.ColorIndex = Sheets("Parameter").Range("g32")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e33").Value  'LYM45

                        .Interior.ColorIndex = Sheets("Parameter").Range("f33")              ' Füllfarbe gelb

                        .Font.ColorIndex = Sheets("Parameter").Range("g33")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e34").Value  'LYM30

                        .Interior.ColorIndex = Sheets("Parameter").Range("f34")               ' Füllfarbe gelb

                        .Font.ColorIndex = Sheets("Parameter").Range("g34")

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e35").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f35")           ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g35")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e36").Value  'CMD

                        .Interior.ColorIndex = Sheets("Parameter").Range("f36")      ' Füllfarbe Türkis

                        .Font.ColorIndex = Sheets("Parameter").Range("g36")              ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e37").Value  'HCMD

                        .Interior.ColorIndex = Sheets("Parameter").Range("f37")             ' Füllfarbe pink

                        .Font.ColorIndex = Sheets("Parameter").Range("g37")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e38").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f38")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g38")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e39").Value 'Beckenboden

                        .Interior.ColorIndex = Sheets("Parameter").Range("f39")          ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g39")                     ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e40").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f40")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g40")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e41").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f41")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g41")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e42").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f42")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g42")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e43").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f43")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g43")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e44").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f44")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g44")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e45").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f45")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g45")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e46").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f46")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g46")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e47").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f47")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g47")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e48").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f48")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g48")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e49").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f49")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g49")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e50").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f50")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g50")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e51").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f51")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g51")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e52").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f52")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g52")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e53").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f53")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g53")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e54").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f54")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g54")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e55").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f55")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g55")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e56").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f56")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g56")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e57").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f57")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g57")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e58").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f58")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g58")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e59").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f59")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g59")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e60").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f60")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g60")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e61").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f61")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g61")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e62").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f62")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g62")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e63").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f63")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g63")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e64").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f64")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g64")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e65").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f65")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g65")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e66").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f66")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g66")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e67").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f67")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g67")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e68").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f68")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g68")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e69").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f69")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g69")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("e70").Value 'frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("f70")             ' Füllfarbe beige

                        .Font.ColorIndex = Sheets("Parameter").Range("g70")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a25").Value 'Urlaub  Abwesenheitstabelle

                        .Interior.ColorIndex = Sheets("Parameter").Range("b25")          ' Füllfarbe orange

                        .Font.ColorIndex = Sheets("Parameter").Range("c25")                      ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a26").Value 'Krank

                        .Interior.ColorIndex = Sheets("Parameter").Range("b26")  ' Füllfarbe rot

                        .Font.ColorIndex = Sheets("Parameter").Range("c26")                  ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a27").Value 'Geschlossen

                        .Interior.ColorIndex = Sheets("Parameter").Range("b27") ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c27")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a28").Value 'Frei

                        .Interior.ColorIndex = Sheets("Parameter").Range("b28")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c28")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a29").Value  'Teilzeit

                        .Interior.ColorIndex = Sheets("Parameter").Range("b29")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c29")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a30").Value  'Teilzeit

                        .Interior.ColorIndex = Sheets("Parameter").Range("b30")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c30")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a31").Value  'Fortbildung

                        .Interior.ColorIndex = Sheets("Parameter").Range("b31")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c31")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a32").Value  'Elternzeit

                        .Interior.ColorIndex = Sheets("Parameter").Range("b32")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c32")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a33").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b33")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c33")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a34").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b34")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c34")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a35").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b35")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c35")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a36").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b36")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c36")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a37").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b37")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c37")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a38").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b38")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c29")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a39").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b39")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c39")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Sheets("Parameter").Range("a40").Value  'Leer

                        .Interior.ColorIndex = Sheets("Parameter").Range("b40")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("c40")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                    Case Else

                        ' keine Füllfarbe, ColorIndex nicht Color

                        .Interior.ColorIndex = Sheets("Parameter").Range("f1")          ' Füllfarbe

                        .Font.ColorIndex = Sheets("Parameter").Range("g1")                        ' Schriftfarbe schwarz

                        .NumberFormat = "General"

                End Select

            End With

        Next RaZelle

  End If

    Set RaBereich = Nothing

End Sub

so habe ich die Spalten Einfärbung bisher zusammen gebracht (Gestützt durch Google)

Code:
With Worksheets("Januar")

    Set rngBereich = Union(.Range("c7:gf7"), .Range("E93:gf93"))

    For Each Zelle In rngBereich

        If Zelle.Value = "URLAUB" Then

            sp = Zelle.Column

            Select Case Zelle.Row

                Case 7: .Range(Cells(9, sp), Cells(92, sp)).Interior.ColorIndex = 45

                Case 80: .Range(Cells(93, sp), Cells(100, sp)).Interior.ColorIndex = 15

            End Select

        End If

    Next

Jetzt möchte ich diese Spalteneinfärbung inkl. Bezug auf die Tabelle (Parameter) in den ersten Code integrieren, und bekomme es nicht hin.
Wäre schön wenn jemand helfen könnte, Danke

Gruß Arnold

Ich baue die Tabelle mal grad nach und melde mich dann am nächsten Wochenende …

Hallo,

Sorry, hab ich vergessen :)

habe eine Mappe angehangen

Gruß Arnold

Hallo,

mit der Bedingten Formatierungsregel =c$7=Parameter!$A$25 und Farbe RGB 237,125,49 mit dem Anwendungsbereich G8:GF92
funktioniert es das der Bereich z.B C8:C92 in der Spalte C mit dem Begriff URLAUB, eingefärbt wird und wenn der Begriff URLAUB wieder entfernt wird alle Zeilen dieser Spalte wieder ihre alte Farbe (Grau bzw. weis ) haben.
Wie ich das aber in VBA in meinen Vorhanden Code hinein bekomme? bekomme ich nicht hin.

MFG
Arnold

HI Arnold,

schreibe zwischen

End Select
End If

ein Else und nimm dort die Farbe raus

End Select
Else
'Farbe raus
'Code: ...
End If

Arni49

RPP63

Arni49

Arni49

schauan