Doppelter eintrag verhindern
30.04.2008 16:17:00
FPH
ich benötige heut mal wieder hilfe von euch. Ich versuche doppelte einträge per VBA abzufangen und den eintrag nach der Meldung zu löschen. Das funktioniert auch soweit. Ich habe allerdings das Problem das ich einen Barcode ein scanne. Dieser Barcode wird dann als Zahl Dargestellt und jetzt gehts los. Die Zahl hat 21 stellen sodaß ich immer wieder die meldung bekomme doppelter eintrag nicht erlaubt.
Ich habe das problem soweit gelößt das ich den Zahlenstring über die Funktion ersetzten so verkürzt hjabe das die Zahl wieder gepürft / verglichen werden kann.
Die Eingabe erfolgt in Spalte A geprüft werden soll aber in spalte E, wenn hier ein doppelter eintrag gefunden wird soll die fehlermeldung erscheinen und die eingabe in spalte A soll dann wieder gelöscht werden.
Der Code für die Prüfung sieht wie folgt aus:
Wie muß der code geändert werden wenn in Spalte E überprüft werden soll und in Spalte A die Eingabe gelsöcht wernde soll.
vorab vielen dannk für Eure hilfe.
Private Sub Worksheet_change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("a4:a9999")
If Target.Column = 3 Then Cells(Target.Row + 1, 3).Select
If Target.Column >= 0 And Target.Column 1 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
If Tabelle1.Range("g5") = Tabelle2.Range("g3") Then
MsgBox "alle Collis erfasst, Lieferung ist OK"
End If
End Sub