doppelte Einträge
04.07.2007 22:38:07
HOLGI
ich habe eine Tabelle mit Namen, Vornamen, Bereich, Passwort und Kurzzeichen. Mit folgendem sub
Private Sub TextBox1_AfterUpdate() Dim Bereich As Range Dim Letzte As Long If [A65536] = "" Then Letzte = [A65536].End(xlUp).Row Else Letzte = 65536 End If Set Bereich = Sheets("PW").Range("A1:A" & Letzte) _ .Find(TextBox1, lookat:=xlWhole) If Bereich Is Nothing Then ' MsgBox "Bitte Daten Eingeben" Else MsgBox "Benutzer '" & TextBox1 & "' ist schon vorhanden!" TextBox1 = "" End If End Sub
verhindere ich doppelte Einträge über die Userform in Textbox1(Name).
Jetzt mein Problem: Doppelte Namen kommen aber schonmal vor,aber Name und Vorname(Textbox2) dürfen nicht doppelt vorkommen, wie kann ich das Problem lösen. Weiß jemand Rat?
Gruß
HOLGI
Anzeige