Excel Makro - sehr langsam

Question

Ich möchte ein Makro machen, das überprüft, ob das Datum in Spalte A weniger als heute ist. Wenn dies der Fall sollte die Makro einfügen „done“ in Spalte G.

Sub DoneCheck() 

Dim rngZelle As Range, strText As String 
With ActiveSheet 

For Each c In Sheets("3. Umlagerungen").Range("A:A") 
If c.Value < Int(Now) And Not (IsEmpty(c.Value)) Then c.Offset(0, 6).Value = "done" 

Next c 
End Sub 

Ich weiß, dass es sehr schlecht codiert, aber es funktioniert ... Der Grund, warum ich nach Hilfe bin auf der Suche, weil es wirklich läuft langsam ...

Ich habe es mit Application.ScreenUpdating versucht, aber es ändert nichts.

Danke im Voraus & Grüße

Answer 1

Sie sollten nur die verwendeten Zellen in Spalte A überprüfen, und das Hinzufügen von Application.ScreenUpdating = False hilft immer Dinge zu beschleunigen:

Sub DoneCheck() 
Dim eRow as long 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

eRow = Thisworkbook.Sheets("3. Umlagerungen").Cells(Rows.Count,1).End(xlUp).Row 

For Each c In Thisworkbook.Sheets("3. Umlagerungen").Range("A2:A" & eRow) 
    If c.Value < Int(Now) And Not (IsEmpty(c.Value)) Then c.Offset(0, 6).Value = "done" 
Next c 

Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

End Sub