Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bedingte Formatierung
#1
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
Antwortento top
#2
Ich baue die Tabelle mal grad nach und melde mich dann am nächsten Wochenende …
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)
Antwortento top
#3
Hallo,

Sorry, hab ich vergessenSmile

habe eine Mappe angehangen

Gruß Arnold


Angehängte Dateien
.xlsm   Mappe2.xlsm (Größe: 240,59 KB / Downloads: 5)
Antwortento top
#4
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
Antwortento top
#5
HI Arnold,

schreibe zwischen

End Select
End If

ein Else und nimm dort die Farbe raus

End Select
Else
'Farbe raus
'Code: ...
End If
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste