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:
so habe ich die Spalten Einfärbung bisher zusammen gebracht (Gestützt durch Google)
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
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 Subso 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
NextJetzt 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
