VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Hinzugefügte Duplikate werden nicht gelöscht	13.12.2021 15:08:20	Sven
Hinzugefügte Duplikate werden nicht gelöscht	13.12.2021 18:05:26	Gast87915
Hinzugefügte Duplikate werden nicht gelöscht	14.12.2021 14:56:51	Gast31382
Hinzugefügte Duplikate werden nicht gelöscht	14.12.2021 19:53:14	Gast3880
Schon mal etwas von Datengültigkeit gehört?	13.12.2021 18:29:34	RPP63
Schon mal etwas von Datengültigkeit gehört?	14.12.2021 14:56:07	Gast25770

Ansicht des Beitrags:

Von:
Sven

Datum:
13.12.2021 15:08:20

Views:
1621

Rating:

Antwort:

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
Hinzugefügte Duplikate werden nicht gelöscht	13.12.2021 15:08:20	Sven
Hinzugefügte Duplikate werden nicht gelöscht	13.12.2021 18:05:26	Gast87915
Hinzugefügte Duplikate werden nicht gelöscht	14.12.2021 14:56:51	Gast31382
Hinzugefügte Duplikate werden nicht gelöscht	14.12.2021 19:53:14	Gast3880
Schon mal etwas von Datengültigkeit gehört?	13.12.2021 18:29:34	RPP63
Schon mal etwas von Datengültigkeit gehört?	14.12.2021 14:56:07	Gast25770