Inhalt einer Userform-TextBox in Spalte vorhanden?

[schauan]

Hallo Ralf,

Noch ein Hinweis zu Find, auch wenn Du Dich vielleicht schon für CountIf entschieden hast.
Die Konstruktion mit FindNext ist nicht nötig bw läuft sowieso nicht "im Kreis" , da vor dem Loop das Exit Sub kommt. Es reicht also:

Code:

With objWsK.Range("A2:A" & loLetzte)
      Set c = .Find(TextBox1.Value, LookIn:=xlValues)
      If Not c Is Nothing Then
            frm_KdNr_vorhanden.Show                                          ' Fehlermeldung
            TextBox1.Value = ""                                              ' TextBox leeren
            TextBox1.SetFocus                                                ' Cursor in TextBox 1 zur Neueingabe
            Cancel = True
            Exit Sub
      Else
         strKdNr = TextBox1.Value                                            ' Übertrag Eingabe in Variable
      End If
   End With