Private Sub CommandButton2_Click()
Dim rng As Excel.Range
With Tabelle1
Set rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
Set rng = rng.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
TextBox2.Text = .Cells(rng.Row, "B").Value
TextBox3.Text = .Cells(rng.Row, "C").Value
TextBox4.Text = .Cells(rng.Row, "D").Value
TextBox5.Text = .Cells(rng.Row, "E").Value
Else
Call MsgBox("'" & TextBox1.Text & "' wurde nicht gefunden.")
End If
End With
End Sub