Private Sub CommandButton2_Click()
Dim rng As Excel.Range
Dim rngResult As Excel.Range
Dim strAddrFirst As String
With Tabelle1
Set rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
Set rngResult = rng.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngResult Is Nothing Then
strAddrFirst = rngResult.Address
Do
If rngResult.Address <> strAddrFirst Then
If vbNo = MsgBox("Ein weiteres Duplikat wurde gefunden." & vbNewLine & vbNewLine & _
"Fortfahren?", vbQuestion Or vbYesNo) _
Then
Exit Do
End If
End If
TextBox2.Text = .Cells(rngResult.Row, "B").Value
TextBox3.Text = .Cells(rngResult.Row, "C").Value
TextBox4.Text = .Cells(rngResult.Row, "D").Value
TextBox5.Text = .Cells(rngResult.Row, "E").Value
Set rngResult = rng.FindNext(After:=rngResult)
Loop Until rngResult.Address = strAddrFirst
Else
Call MsgBox("'" & TextBox1.Text & "' wurde nicht gefunden.")
End If
End With
End Sub