Doppeleingabe in adressierter Tabelle verhindern
22.01.2007 18:16:29
Malcolm_p
wie kann ich den in Textbox1 eingegebenen Wert gegen ABHWBName, Tabelle1 prüfen, um eine doppelte Erfassung zu verhindern und dies mit einer MsgBox signalisieren?
Hierbei soll die Eingabe in TextBox1 gegen die Spalte 2 der Tabelle1 geprüft werden.
Ich habs per try ´n´error versucht (siehe drei?) aber keinen erfolg verbuchen können.
Hat jemand einen intelligenten Ansatz oder gar eine Lösung?
Herzlichen Dank
Malcolm
Private Sub CommandButton1_Click()
With Workbooks(ABHWBName).Worksheets("Tabelle1")
?If .Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2).Value = TextBox1.Value Then
MsgBox "Bestellnummmer wurde bereits erfasst!"
TextBox1 = ""
Cancel = True
TextBox1.SetFocus
Exit Sub
Else
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = TextBox3.Value
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 0, 2).Value = TextBox1.Value
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 0, 3).Value = TextBox2.Value
'End With
' Blendet die Msgbox nach 1 Sekunden automatisch wieder aus
Const bytZeit As Byte = 1
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Daten Erfasst!" & Space(10), bytZeit, "Datensatz aufgenommen!")
Set objWSH = Nothing
TextBox3.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End If
End With
End Sub