Private Sub CommandButton1_Click()
Dim sSuchwert As String
Dim sVergleich As String
Dim iReihe As Integer
Application.ScreenUpdating = False
sSuchwert = Worksheets("auswertung").Range("d2")
For i = 1 To Worksheets("archiv").Cells(Rows.Count, 1).End(xlUp).Row
sVergleich = Worksheets("archiv").Cells(i, 1)
If sSuchwert = sVergleich Then
Worksheets("archiv").Rows(i).Copy Destination:=Worksheets("auswertung").Cells(10 + iReihe, 1)
iReihe = iReihe + 1
Next i
Application.ScreenUpdating = True
End Sub
Er tut auch was, nur sind die Ergebnisse nicht zu 100% oder überhaupt nicht der gesuchte String. Alle Strings sind Bereichsbezeichnungen im Format (ZAHL_ZAHL). Die zu durchsuchenden Zeilen der Reihe 27 haben das selbe Format.
Wenn ich mit Messageboxen die Werte und Reihen ausgebe lasse, findet er die richtigen Werte in den richtigen Zeilen, kopiert aber offensichtlich die falschen Zeilen. Ich gehe kaput.
Ich hoffe ihr könnt mir helfen.