ich greife mein Problem von gestern nochmal neu an, hoffentlich bekomme ich Hilfe.
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