Hallo,
ich habe eine große Tabelle, aus der ich bestimmte Einträge händisch mit dem Filter "lösche". Die Spalte B enthält unzählige verschiedene Zahlen und ich will die Zeilen löschen, welche in einer Liste von ca. 60 Zahlen (2, 31, 33, 34, etc.) enthalten ist.
Das will ich nun mit einem Programm automatisieren, was aber nicht so richtig funktioniert, der Code braucht extrem lange.
For i = 3 To 5000
If Cells(i, 2).Value = "2" Or Cells(i, 2).Value = "31" Or Cells(i, 2).Value = "33" Or Cells(i, 2).Value = "34" ... Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next i
In der If-Bedinung habe ich dann die 30 Zahlen als Bedingungen mit OR verknüpft. Gibt es da eine schnellere und einfachere Lösung?
Vielen Dank!
|