Excel Makro AutoFilter Kriterium nicht erfüllt

Computer: Software & Programmierung Office Software
1

Hallo,

Ich habe folgende schleife mit einem Aotufilter programmiert.

Do
Sheets(„Tabelle2“).Select
Range(A1:K50000).Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Leistung

Range(D1:F50000).Select
Selection.Copy
Sheets(„Zwischenspeicher“).Select
Cells(1, Spalte).Select
ActiveSheet.Paste

Spalte = Spalte + 3
Zeile2 = Zeile2 + 1
Leistung = Sheets(MontNr).Cells(Zeile2, 3).Value

Loop Until Sheets(MontNr).Cells(Zeile2, 3).Value = „“

Nun jetzt braucht die Schleife aber über ne Minute bis sie durchgelaufen ist.
Ich würde gerne prüfen lassen ob das Kriterium1 erfüllt ist und nur wenn das der fall ist sollen die Daten kopiert werden.
Gibt es sowas wie Autofilter.value = true?

2

Moin

Nun jetzt braucht die Schleife aber über ne Minute bis sie
durchgelaufen ist.

versuch mal mit
application.screenupdating = false vor dem loop und
application.screenupdating = true nach dem loop
damit dürftest Du einiges beschleunigen können…

Ich würde gerne prüfen lassen ob das Kriterium1 erfüllt ist
und nur wenn das der fall ist sollen die Daten kopiert werden.
Gibt es sowas wie Autofilter.value = true?

ist mir nicht bekannt…
Aber zur Not nimmst Du einfach sowas wie ANZAHL(A:A) und brichst ab, wenn es unter einem bestimmten Wert liegt…