Gemeinsam also beides geht dies leider nicht mehr.
Bitte um Hilfe.
' Überprüfung ob Kunde bereits vorhanden!
Dim WkSh As Worksheet
Dim rZelle As Range
Set WkSh = ThisWorkbook.Worksheets("Kundendaten")
If (Me.txtName.Value) & (Me.txtVorname) "" Then
With WkSh.Columns("B:C")
Set rZelle = .Find(Me.txtName.Value & Me.txtVorname.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
frmAchtung.Show
GoTo LastLine
End If
End With
Else
End If