Thema Datum  Von Nutzer Rating
Antwort
Rot Hinzugefügte Duplikate werden nicht gelöscht
13.12.2021 15:08:20 Sven
NotSolved
13.12.2021 18:05:26 Gast87915
NotSolved
14.12.2021 14:56:51 Gast31382
NotSolved
14.12.2021 19:53:14 Gast3880
NotSolved
13.12.2021 18:29:34 RPP63
NotSolved
14.12.2021 14:56:07 Gast25770
NotSolved

Ansicht des Beitrags:
Von:
Sven
Datum:
13.12.2021 15:08:20
Views:
134
Rating: Antwort:
  Ja
Thema:
Hinzugefügte Duplikate werden nicht gelöscht

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

Strategieplanung 12.12.2021 14:00 Uhr

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hinzugefügte Duplikate werden nicht gelöscht
13.12.2021 15:08:20 Sven
NotSolved
13.12.2021 18:05:26 Gast87915
NotSolved
14.12.2021 14:56:51 Gast31382
NotSolved
14.12.2021 19:53:14 Gast3880
NotSolved
13.12.2021 18:29:34 RPP63
NotSolved
14.12.2021 14:56:07 Gast25770
NotSolved