Hallo, ich gebe Daten für eine Telefonliste ein. TextBox1 = Nachname, TextBox2 = Vorname. Die 2 Eingaben möchte "auf schon vorhanden" prüfen. Dazu lege die Daten auf dem 2ten Arbeitsblatt (Vorgaben, Spalte B) mit "," getrennt ab. Wenn ich nun den Button "Speichern" drücke, soll die Prüfung erfolgen und wenn Daten vorhanden eine MsgBox erscheinen mit der Info, oder halt wenn nicht speichern. Was ich hatte, aber wohl noch nie funzte war :

'Prüfen ob Kundenname schon vergeben
Set c = Tabelle2.Range("B:B").Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
MsgBox xlValues
MsgBox xlWhole
MsgBox Wert
If Not c Is Nothing Then
Set objShell = CreateObject("WScript.Shell")
Call objShell.Popup("Kunde wurde bereits eingeben" & vbCrLf & vbCrLf & _
Tabelle2.Range("B" & c.Row).Value & Tabelle2.Range("C" & c.Row).Value & vbCrLf & vbCrLf & _
"Diese Fenster schliesst automatisch !!", 2, "Bitte warten...", vbOKOnly)
Set objShell = Nothing
Exit Sub

schon mal vielen Dank für eure Mühen...