Ich verzweifele seit knapp 4 Stunden an folgendem Problem.
Ich habe im Sheet "Archiv" etliche Zeilen mit Werten. Bestimmte zeilen, die in der Spalte 27 einen von mir gesuchten String vorweisen sollen ins Tabellenblatt "auswertung" kopiert und ab Zeile 10 nacheinander eingefügt werden.
Ich habe einen Button der folgendes Ereignis auslöst:
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.
|