Aus Suchfunktion die nur 1. Wert angibt....

Private Sub CommandButton1_Click()
Dim eingabe As String
Dim Zeile As Long
Dim i As String
Dim Spalte As Long
Dim TextBox2 As String
Dim WS As Worksheet: Set WS = ActiveSheet
If TextBox1 = "" Then
MsgBox "Bitte Suchbegriff eingeben!"
Else
eingabe = TextBox1.Value
Zeile = WS.Columns("A:C").Find(What:=eingabe).Row
'Spalte = WS.Columns("A:C").Find(What:=eingabe).Column
MsgBox "Die " & eingabe & " befindet sich in Zeile " & Zeile
'Das hier ist nur zum Testen da
i = 1
Cells(i + 0, 9).Value = "A" & Zeile
Cells(i + 1, 9).Value = "B" & Zeile
Cells(i + 2, 9).Value = "C" & Zeile
End If
End Sub