Clever-Excel-Forum › Office-Anwendungen › Excel v
Change Ereignis beim Befüllen von Zellen mit Formeln funktioniert nicht

Baumstrukturmodus
Change Ereignis beim Befüllen von Zellen mit Formeln funktioniert nicht
Arni49 Offline
Benutzer
Registriert seit: 16.12.2016
Version(en): 2013
#1
Sad  09.12.2022, 09:16
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.
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
Suchen
Antworten Top
Fennek Offline
Benutzer
Registriert seit: 06.12.2015
Version(en): 2016
#2
09.12.2022, 11:21 (Dieser Beitrag wurde zuletzt bearbeitet: 09.12.2022, 11:21 von Fennek.)
Hallo,

das "Change"-Event reagiert nicht auf neue Werte in einer Formel oder Änderung von Farben. Um das zu erreichen sind einige Tricks nötig.

Bei jeder Änderung alle Zellen durch-zu-schleifen ist übertrieben. Dieser Code sollte die Auswahl der Zelle reichen:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row Mod 2 = 1 And Target.Column > 2 And Target.Column - 185 Then
    Target.Interior.Color = vbYellow
End If

End Sub

Auch die Zuweisung der Farbe sollte viel einfacher programmierbar sein.

Vorschlag: Alle Kriterien in ein Array schreiben:

Code:
iCode = Array("PKG20", "PKG40", "PVM20")

dann kann die Farbe mit "Choose" gesetzt werden.

Code:
Cells(i, 1).Interior.Color = Choose(i, XlRgbColor.rgbAliceBlue, XlRgbColor.rgbBeige)

mfg
Suchen
Antworten Top
snb Offline
Benutzer
Registriert seit: 29.09.2015
Version(en): 2030,5
#3
09.12.2022, 11:44
Array ohne choose

Code:
sn = Array(XlRgbColor.rgbAliceBlue, XlRgbColor.rgbBeige)

Cells(i, 1).Interior.Color=sn(i)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Homepage Suchen
Antworten Top
derHoepp Offline
Benutzer
Registriert seit: 26.09.2022
Version(en): 2019
#4
09.12.2022, 11:55
Moin,

unabhängig davon, dass die Zelländerung von Formeln (wie von Fennek bereits gesagt) kein Change-Ereignis auslöst, sehe ich noch Verbesserungspotential:
1. Statt jede Zelle in RaBereich zu übernehmen, würde ich testen, ob die geänderte Zelle eine ungerade Zeilennummer zwischen 13 und 91 hat und zwischen C und GF liegt (wie von Fennek vorgeschlagen)
2. Statt des Select-Case-Monsters würde ich ein einfaches Lookup verwenden (von E2 bis E71) dabei solltest du natürlich die Abwesenheitsgründe einfach mit in die Spalten E bis G übernehmen.
3. Insgesamt auf den Code verzichten und einfach eine bedingte Formatierung benutzen, die mit einem Lookup des Zelleintrags analog zu 2. die Farbe ermittelt.

Darf ich noch fragen, warum du überhaupt nur die ungeraden Zeilen belegt hast? Gibt es vielleicht eine Beispieldatei?

Viele Grüße
derHöpp
Suchen
Antworten Top
Arni49 Offline
Benutzer
ThreadStarter

Registriert seit: 16.12.2016
Version(en): 2013
#5
09.12.2022, 15:56 (Dieser Beitrag wurde zuletzt bearbeitet: 09.12.2022, 16:21 von Arni49.)
(09.12.2022, 11:55)derHoepp schrieb: Moin,

unabhängig davon, dass die Zelländerung von Formeln (wie von Fennek bereits gesagt) kein Change-Ereignis auslöst, sehe ich noch Verbesserungspotential:
1. Statt jede Zelle in RaBereich zu übernehmen, würde ich testen, ob die geänderte Zelle eine ungerade Zeilennummer zwischen 13 und 91 hat und zwischen C und GF liegt (wie von Fennek vorgeschlagen)
2. Statt des Select-Case-Monsters würde ich ein einfaches Lookup verwenden (von E2 bis E71) dabei solltest du natürlich die Abwesenheitsgründe einfach mit in die Spalten E bis G übernehmen.
3. Insgesamt auf den Code verzichten und einfach eine bedingte Formatierung benutzen, die mit einem Lookup des Zelleintrags analog zu 2. die Farbe ermittelt.

Darf ich noch fragen, warum du überhaupt nur die ungeraden Zeilen belegt hast? Gibt es vielleicht eine Beispieldatei?

Viele Grüße
derHöpp

Hallo und Danke an alle,

Das Ganze ist eine Terminplanung aus vergangen Tage und mehreren Erstellern, wird aber aktuell noch in einer Praxis verwendet.

Natürlich darfst Du fragen und es gibt auch eine Beispieldatei.

Zu Deiner Frage der Höppöp
In einer der Zeile wir die Behandlung eingetragen und in die andere der Patient.

In der Datei wird in den Monaten 1-12 jeweils die Behandlung und der dazugehörige Patient eingetragen. Diese Eintragungen werden dann am Tag Heute() in einer Separaten Tabelle (Termine Tagesaktuell) in einer 2.Instanz auf einem 2.Monitor angezeigt (Monitor2Anwahl), in dieser Tabelle befinden sich im Anzeigebereich C7:H92 und P7:CU92 Formeln zur Anzeige und Auswertung, Ebenfalls verbesserungswürdig :)
Es gibt eine eigene Symbolleiste "Terminplanung" in der befindet sich das der Button Start der die  Userform Startbild aufruft in der mit ServiceUser und Admin einiges freigeschaltet und ausgeführt werden kann.

Es gibt da sicherlich einiges zu verbessern :) 

Hoffe Du kommst so klar, wenn nicht einfach fragen.

Guß Arnold
Muss die Datei noch verkleinern
Hallo der Höpp,

kann ich sie Dir auch per EMAIL senden? ist zu Groß

Gruß
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#6
09.12.2022, 17:27 (Dieser Beitrag wurde zuletzt bearbeitet: 09.12.2022, 17:29 von schauan.)
Hallöchen,

schaue mal, dass Du die Datei kleiner bekommst. Z.B.
- Reduzieren der Datei, das gewünschte Ergebnis sollte erkennbar sein und eine passable Datenbasis, nicht mehr
- Speichern als xlsb
unabhängig davon kann man im Change-Ereignis auch die Datenbasis, wo die Eingaben passieren, überwachen.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top
Arni49 Offline
Benutzer
ThreadStarter

Registriert seit: 16.12.2016
Version(en): 2013
#7
10.12.2022, 10:42 (Dieser Beitrag wurde zuletzt bearbeitet: 10.12.2022, 10:42 von Arni49.)

.xlsm   PraxisForum.xlsm (Größe: 1,22 MB / Downloads: 2)
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#8
10.12.2022, 12:38
Hallöchen,

das VBA-Projekt hat ein Passwort.
a) Du postest die Datei nochmal ohne
b) wenn es ein anderes ist, als in der produktiven Datei, kannst Du es Online stellen
c) Du sendest es per PN
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top
Arni49 Offline
Benutzer
ThreadStarter

Registriert seit: 16.12.2016
Version(en): 2013
#9
10.12.2022, 12:44
Sorry,

hier ohne PW

grüße


Angehängte Dateien
.xlsm   PraxisForum.xlsm (Größe: 1,22 MB / Downloads: 6)
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#10
10.12.2022, 13:41
Hallöchen,

mal ohne Bewertung des Projekts - und theoretisch ...
Du hast im Monatsblatt ein Change-Ereignis. Dort müsstest Du die Reaktion für TermineAktuell einarbeiten.
- Spalte für den Tag ermitteln
- Zeile passt
- Farbe setzen
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top


Gehe zu:


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