Folgender Code braucht bei meinem Datensatz von kanpp 7000 Daten sehr lange. Hat jemand eine gute Idee, wie ich diesen optimieren kann? Meine Programmierkenntnisse sind leider nur Anfänger.
Vielen Dank
if Opt_OE_Filterinhalt = True And Left(Sheets("Steuerung").Range("F15"), 1) "K" Then
geprueft = 0
loopz = 0
Do
If loopz = Anz Then Exit Do
zu_pruefende_OE = Range("B1").Offset(geprueft + 1)
gefund = ""
On Error Resume Next
gefund = WorksheetFunction.Match(zu_pruefende_OE, ThisWorkbook.Sheets("Steuerung").Range("J56:J80"), 0)
On Error GoTo 0
If gefund = "" Then
Range("B1").Offset(geprueft + 1).EntireRow.Delete
loopz = loopz + 1
Else
geprueft = geprueft + 1
loopz = loopz + 1
End If
Loop
End If