Script ist sehr langsam
Waidelich
kann mir jemand helfen? Ich habe in Script geschrieben und der Ablauf ist so in Ordnung.
Leider benötigt mein Rechner für ca. 10 Zeilen mehrere Sekunden. Die Tabelle, die er durchsuchen soll hat einige 1.000 Datensätze.
Kann mir jemand das Script Zeitoptimieren?
Hier ist das Script:
Sub Makro2()
'Application.DisplayAlerts = False
'Application.ScreenUpdating = False
Dim i As Integer
i = 2
Sheets("Ladetabelle").Select
'ActiveWorkbook.RefreshAll
Do While Range("A" & i).Value > 1
Range("Q" & i).Value = "=L" & i & "*G" & i
Range("R" & i).Value = "=P" & i & "*G" & i
If (Range("O" & i).Value Range("O" & i - 1).Value) And (Range("J" & i).Value = Range("J"
& i - 1).Value) Then Range("S" & i).Value = "1"
i = i + 1
Loop
End Sub