Hallo zusammen,
In meiner Frage geht es um das Change-Ereignis einer Tabelle. Es Funktioniert beim Manuellen Eintragen hervorragend aber wenn Daten aus anderen Zellen via Formeln in die Zellen des Datenblatts mit dem Change Ereignis eingetragen werden, wird das Ereignis nicht gestartet und die entsprechenden Veränderungen der Farben werden nicht vorgenommen. Klicke ich mit der Maus auf eine Entsprechende Zelle, sodass die Formel angezeigt wird, funktioniert das Change Ereignis????
Bis vor ein paar Wochen funktionierte das Change-Ereignis in meiner Tabelle noch Tadellos, aber jetzt nicht mehr?? Hat Jemand eine Idee? Gibt es da eine Einstellung? What Ever.
Wäre schön wenn Jemand das Problem lösen könnte.
Da ich davon ausgehe das es etwas anderes sein muss als der Code der seit Monaten funktioniert, hier erstmal nur der Code.
Im Code betrachte ich die Inhalte mehrere Range und vergleiche den Inhalt mit auf der Tabelle Parameter befindlichen Einträge um die Zellen im Range entsprechend Farblich einzufärben.
Dank im voraus
Grüße
In meiner Frage geht es um das Change-Ereignis einer Tabelle. Es Funktioniert beim Manuellen Eintragen hervorragend aber wenn Daten aus anderen Zellen via Formeln in die Zellen des Datenblatts mit dem Change Ereignis eingetragen werden, wird das Ereignis nicht gestartet und die entsprechenden Veränderungen der Farben werden nicht vorgenommen. Klicke ich mit der Maus auf eine Entsprechende Zelle, sodass die Formel angezeigt wird, funktioniert das Change Ereignis????
Bis vor ein paar Wochen funktionierte das Change-Ereignis in meiner Tabelle noch Tadellos, aber jetzt nicht mehr?? Hat Jemand eine Idee? Gibt es da eine Einstellung? What Ever.
Wäre schön wenn Jemand das Problem lösen könnte.
Da ich davon ausgehe das es etwas anderes sein muss als der Code der seit Monaten funktioniert, hier erstmal nur der Code.
Im Code betrachte ich die Inhalte mehrere Range und vergleiche den Inhalt mit auf der Tabelle Parameter befindlichen Einträge um die Zellen im Range entsprechend Farblich einzufärben.
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"))
Application.EnableEvents = False
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("E71").Value 'Für Leer Zellen
.Interior.ColorIndex = Sheets("Parameter").Range("f71") ' Füllfarbe
.Font.ColorIndex = Sheets("Parameter").Range("g71")
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
.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("f71") ' Füllfarbe
.Font.ColorIndex = Sheets("Parameter").Range("g71") ' Schriftfarbe schwarz
.NumberFormat = "General"
End Select
End With
Next RaZelle
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Dank im voraus
Grüße