Office: Doppelte Einträge verhindern

Hallo zusammen,

ich möchte per VBA in einer Datei mit mehreren Tabellen doppelte Einträge verhindern.
Also dass eine Meldung erscheint, wenn dieser Wert bzw diese Zahl in der Datei schonmal vorhanden ist.

Beispiel: User gibt "159986" ein und dieser Wert ist schonmal in Arbeitsmappe 3 Vorhanden


Bis jetzt konnte ich durch googlen folgenden VBA Code finden, welcher soweit auch funktioniert.
Nur möchte ich eben, dass dieser Code auf alle Tabelen angewendet wird und nicht nur auf einer Tabelle.


Hier einmal der Code:

Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1:A10000")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht zulässig")
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Target.Select
End If
End Sub


Danke und Gruß

:)

 

Hallo,

du kannst eine Schleife durch alle Worksheets zwischenschalten.
Den Bereich setze ich dann spezifisch auf das entsprechende Worksheet ein.
Ich beende den Code sobald er auf ein Ergebnis fällt, sonst würde er weiterlaufen, kostet nur Zeit.

Code:

 

Hallo

danke schonmal für die schnelle Antwort.

Nur wie füge ich das jetzt genau ein ? und was für eine Bedeutung haben die [...] [...] [...]

Danke

 

Hallo,

[...] ist aus der Literatur und bedeutet "Hier wurde etwas ausgelassen".^^
Habe nicht den ganzen Code kopiert, daher diese Zeichen.

Zu deiner eigentlichen Frage.

Code:

Mit alt+F11 kommst du in den VBA Editor in Excel.
Links im Fenster ist der Projektmanager.
Dort findest du wahrscheinlich Tabelle1, Doppelklick, rechts/mittig erscheint ein Blankofenster.
Dort den Code einfügen.

Wenn es in jeder Tabelle so funktionieren soll, dann muss der Code auch in jede neue Tabelle eingefügt werden, wie oben beschrieben.

Grüße

Mathieu

Wenn der Code in jedem Tabellenblatt

 

Hallo

Danke für die Gute Erklärung

Habe den Code eingefügt, jedoch gibt er mir immer einen Fehler aus wenn ich etwas in der Tabelle schreiben möchte


Beim Debuggen markiert er mir folgende Zeile :

If Intersect(Bereich, Target) Is Nothing Then Exit Sub
http://www.ms-office-forum.net/forum...1&d=1473234788

 

Soll nur Spalte A überwacht und überprüft werden?

Der Eintrag in Tabelle1 in Spalte A darf sich nicht in den anderen Tabellen in Spalte A vorhanden sein.
Der Eintrag in Tabelle2 in Spalte A darf sich nicht in den anderen Tabellen in Spalte A vorhanden sein.
usw...

Ist das so gemeint?

 

prinzipiell sollten alle Spalten überwacht werden, jedoch wenn es nicht möglich ist dann würde auch eine Spalte ausreichen, in diesem Fall Spalte A


Ja so sollte das ablaufen, also wen in Tabelle 1 Spalte A der Wert schon vorhanden ist und der User jetzt z.B. in Tabelle 3 den Wert nochmals eingibt dann soll eine Meldung erscheinen

 

Kommt ins Modul 'DieseArbeitsmappe':

Code:

 

Super, Danke !

Das funktioniert schonmal so wie ich mir das vorgestellt habe.

gibt es noch die möglichkeit, dass auch auf dem Aktuellen Blatt bzw Tabelle geprüft wird. also nicht nur die anderen Tabellen durchsucht werden

und kann man sich anzeigen lassen wo genau sich der Wert befindet ? also die Zeile

 

Code: