Makro zu beschleunigen?
19.09.2013 15:21:26
Georg
nachdem Hajo mir heute schon eine Stunde Gripsgymnastik ganz easy mit einem RETURN gelöst hat werde ich mutig und frage weiter. Das ff Makro soll aus einem Gesamtbestand an Datenzeilen nach bestimmten Kriterien die Zeilen rausschmeißen, bei denen die entsprechenden Zelle den Kriterien nicht entspricht. Hier: in Spalte R soll nur noch "2013" stehen bleiben. Da es ca. 30.000 Zeilen sind, die hier nach verscheidenen Kriterien in mehreren solchen Loops durchgekaut werden, dauert das recht lang.
Kann man das Ganze auch schneller machen? Ich habe in der Recherche geschaut, aber kann das Gefundene nicht so richtig auf meinen Fall anwenden...
SFZEILE = 0 ' Schleife zum Löschen der unnötigen Datensätze
Do Until Range("R7").Offset(SFZEILE, 0).Value = 0
If Range("R7").Offset(SFZEILE, 0).Value = "2014" _
Or Range("R7").Offset(SFZEILE, 0).Value = "2015" _
Or Range("R7").Offset(SFZEILE, 0).Value = "2016" Then
Range("R7").Offset(SFZEILE, 1).EntireRow.Delete
SFZEILE = SFZEILE - 1
End If
SFZEILE = SFZEILE + 1
Loop
Danke und Gruß Georg