wie kann ich den u.a. Code erweitern, dass ich wenn
der im Textfeld eingegebene Text nicht gefunden wird,
ein Text in einer MsgBox ausgegeben wird.
Public Function ZeileAngebotSuchen(frm As UserForm) _
As Integer
Dim Zeile As Integer
ThisWorkbook.Worksheets("Daten").Activate
Zeile = 2
Do While Cells(Zeile, 3).Value ""
If Cells(Zeile, 3).Value = _
frm.txtAngebotSuchen.Text Then
Exit Do
End If
Zeile = Zeile + 1
Loop
ZeileAngebotSuchen = Zeile
Debug.Print Zeile
End Function