auf diese Weise würde da ein Schuh draus

    Dim c As Range
    Dim i As Long
    Dim strSuche As String
    strSuche = TextBoxSuchen.Value
    With Worksheets("Übersicht Kompanie")
        Set c = .Rows(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            For i = 1 To 34
                Controls("Textboxanzeigen" & i).Value = .Cells(i, c.Column).Value
            Next
        End If
    End With

aber das selber nachzubauen ist mir grad zu aufwändig