Private Sub CommandButton1_Click()
Dim sSuchwert As String
Dim sVergleich As String
Dim iZielwert As Integer
sSuchwert = Worksheets("auswertung").Range("d2")
iZielwert = 10
Worksheets("auswertung").Select
Range("A10:CZ1000").Delete
For i = 1 To Worksheets("archiv").Cells(Rows.Count, 1).End(xlUp).Row
sVergleich = Worksheets("archiv").Cells(i, 27)
If Worksheets("auswertung").Range("d2").Value = Worksheets("archiv").Cells(i, 27) Then
Worksheets("archiv").Cells(i, 1).EntireRow.Copy Destination:=Worksheets("auswertung").Cells(10 + iZielwert, 1)
iZielwert = iZielwert + 1
End If
Next i
End Sub