Ich habe in meiner Tabelle3 im Bereich G2:I8 eine Liste wo ich per CommandButton Daten einfüge. In der ersten Zeile G1:I1 habe ich beispielweise

Wenn ich in die nächste Zeile beispielweise wieder Strategieplanung hinzugefüge, soll diese gerade hinzugefügte Zelle und auch die anderen beiden also G2:I2 wieder rausgelöscht werden.

Mit dem Programmcode den ich gefunden habe hat es leider nicht funktioniert.

      Dim Bereich As Range
            Dim Zelle As Range
            Set Bereich = Range("G2:H8")
                For Each Zelle In Bereich
                If WorksheetFunction.CountIf(Bereich, Zelle.Value) > 1 Then
                    MsgBox ("Jede Trainingseinheit ist nur einmal pro Woche zulässig sowie nur eine Trainingseinheit pro Tag")
                    Application.EnableEvents = False
                    Zelle.Value = ""
                    Application.EnableEvents = True
                    Zelle.Select
                End If
                Next Zelle

Was muss ich ändern damit, das richtig gelöscht wird?

Danke schonmal