Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte eingaben gleich nach der eingabe rückgängig machen
 29.12.2021 18:49:21 Harun
NotSolved
30.12.2021 01:01:45 ralf_b
NotSolved
30.12.2021 20:16:15 Harun
NotSolved
31.12.2021 00:35:18 ralf_b
NotSolved
31.12.2021 01:07:38 Gast51274
Solved

Ansicht des Beitrags:
Von:
Harun		 Datum:
29.12.2021 18:49:21		 Views:
1240		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte eingaben gleich nach der eingabe rückgängig machen		 
Hallo zusammen,
ich komme hier einfach nicht weiter!

Der Code funktioniert an sich ganz gut, allerdings, nach der fehlermeldung löscht es nur die eingabe in der Spalte A, 

also nicht die ganze Zeile (A-D).

Kurz zu ausgangssitiuation: In der Arbeitsmappe sind 4 Blätter, ein Userform mit 4 eingabefeldern und 
einen Speicher Button.

Ziel: Nach den 4 eingaben in der UserForm, soll der Button (durch klicken) in der Aktiven Blatt 
die daten im Spalte A nach doppelte eingaben prüfen.
Falls im Spalte A was gleiches vor kommt, soll es die 4 eingaben im Userform rückgängig machen.

Der Code unten, liegt gerade auf der aktiven Blatt also nicht auf dem Button.
 ?????
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A:A")
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
    MsgBox "Diesen Eintrag gibt es schon", , "Achtung"
    Application.EnableEvents = False
    Target.Value = ""
    Application.EnableEvents = True
    Target.Select
End If
End Sub

Ich bin für jede Hilfe dankbar

Grüße aus München

Harun

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 Doppelte eingaben gleich nach der eingabe rückgängig machen
 29.12.2021 18:49:21 Harun
NotSolved
30.12.2021 01:01:45 ralf_b
NotSolved
30.12.2021 20:16:15 Harun
NotSolved
31.12.2021 00:35:18 ralf_b
NotSolved
31.12.2021 01:07:38 Gast51274
Solved