Hallo VBA Experten,
ich habe hier einen Code der bei einer sehr langen(großen) Anzahl von zeilen ziemlich lange braucht.
Meine frage gibt es eine möglichkeit den Code zu beschleunigen wenn ja wie ?
Vielen Dank im vorraus Christian
Worksheets("neu").Select
LZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = LZ To 1 Step -1
Select Case Cells(x, 3)
Case "4700600700", "4710603200"
Case Else
Rows(x).Delete
End Select
Next