Hallo Leute,
ich hab da eine Sache mit der ich leider nicht so richtig weiterkomme.
Ich lande bei dieser Sprungmarke leider immer wieder in einer Schleife.
Kann mir einer sagen, wie ich es anstelle, dass VBA lediglich die Zeilen
10:5000 nach den vier Kriterien durchsucht ?
Bogentresor_Abgang:
With Worksheets("Bogentresor")
Dim A As Long
Dim strWert As String, strSuchWert As String
strSuchWert = TextBox6 & TextBox13 & ComboBox1 & TextBox7
Application.ScreenUpdating = False
For A = Range("F:J").SpecialCells(xlCellTypeLastCell).Row To 10 Step -1
strWert = Cells(A, "F") & Cells(A, "G") & Cells(A, "H") & Cells(A, "J")
If strWert = strSuchWert Then
With Sheets("Archiv")
Range(Cells(A, "F"), Cells(A, "J")).Copy .Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)
Rows(Cells(A, "F").Row).Delete
End With
End If
Application.ScreenUpdating = True
Next A
GoTo Ende:
Gruß Christian