Start für UserForm ändern | Herbers Excel-Forum

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rZelle   As Range
Dim sFundst  As String
If Trim(TextBox1.Value) = "" Then
MsgBox "Bitte Thema eingeben!", _
48, "   Hinweis für " & Application.UserName
Exit Sub
End If
With ThisWorkbook.Worksheets("Erfassung(2)").Columns(6)
Set rZelle = .Find(What:=Trim(TextBox1.Value), LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
ListBox1.AddItem .Range("C" & rZelle.Row).Value
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
Else
MsgBox "Dieses Thema """ & TextBox1.Value & """  ist nicht vorhanden.", _
48, "   Hinweis für " & Application.UserName
End If
End With
End Sub