Office: Bedingte Formatierung Farbänderung Zellen

Schönen guten Morgen.

Der Code funktioniert ganz wunderbar.
Vielen herzlichen Dank dafür. Das ist eine sehr große Arbeitserleichterung.

Eine Verständnisfrage habe ich noch:
Einträge in den Zellen der Zeile 6 kann ich mit der Taste Backspace ohne Probleme wieder löschen.
Lösche ich dort einzelne Einträge mit der Taste Delete oder markiere ich mehrere Zellen in dieser Zeile und lösche die Einträge mit rechte Maustaste und "Inhalte löschen", dann schmeißt mir der Debugger die Fehlermeldung "Typen unverträglich" aus und danach funktioniert der gesamte Code nicht mehr, selbst wenn ich den Debugger wieder ordentlich schließe. Meine einzige herausgefundene Rettung ist, die Liste ungespeichert zu schließen und wieder zu öffnen, wodurch die bis dahin ungespeicherten Einträge natürlich auch wieder verloren gehen. Kannst du mir erklären, woran das liegt und ob man das umgehen kann? Da ich nicht der Einzige sein werde, der die Liste befüllen wird, hab ich ein bisschen Angst, dass jemand so die Liste unbeabsichtigt "zerschießen" könnte.

 

Naja, bisher war nicht die Rede davon, dass in Zeile 6 Inhalte auch gelöscht werden sollen - man kann Codes immer nur genau so erstellen wie die Aufgabenstellung genannt wird.

Ergänze den Code wie folgt:

Code:

        ElseIf Target.Row = 6 Then
            If Target.Cells(1) <> "" Then  '<== If-Anweisung ergänzt
                For Each rngZelle In Range(Cells(7, Target.Column), Cells(58, Target.Column))
                    If Left(rngZelle, 3) = "dfr" Or rngZelle = "Q" Or rngZelle = "abg" Or rngZelle = "kr" Or rngZelle = "krV" Or rngZelle = "EZ" _
                        Or rngZelle = "EFB" Or rngZelle = "SU" Or rngZelle = "U" Then
                    Else
                        Application.EnableEvents = False
                        Select Case Target.Cells(1)
                            Case "EXTRA"
                                rngZelle = "E"
                            Case "LEB"
                                rngZelle = Target
                            Case "Früh", "Spät", "Tag"
                                rngZelle = Left(Target, 1)
                        End Select
                        Application.EnableEvents = True
                    End If
                Next rngZelle
            End If
        End If

---

 

Perfekt.
Vielen Dank.