Schleife langsam
10.12.2008 13:25:42
Marcus
vielleicht kann mir jemand weiterhelfen. Was kann ich tun, das diese Schleife nicht so langsam durchläuft.
Wenn ich debugge wird immer hier "If Cells(Counter, 11) = True Then" gestoppt!
Programm soll eine Spalte durchlaufen und aus einer vorhergehenden Spalte einen Wert übernehmen, wenn die Bedingung in der zu durchlaufenden Spalte "WAHR" ist. Danach wird der Wert übernommen und dient als Suchindex für eine Liste die im Schleifendurchlauf n-mal gedruckt wird.
Private Sub CommandButton1_Click()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
End With
If MsgBox("Alles berechnet!" & Chr(13) & "Jetzt drucken?", vbYesNo) = vbNo Then
Exit Sub
Else
End If
Range("H1").Select
Range("H1") = 1
MsgBox ("Weiter")
Dim Counter, n As Integer
For Counter = 1 To 523
Worksheets("Stapel auto").Cells(Counter, 10).Value = Counter
If Cells(Counter, 11) = True Then
Range("H1") = Cells(Counter, 10)
For i = 1 To Int(Cells(Counter, 15) / 50) + 1
'ActiveSheet.PrintOut
Next i
End If
n = n - (Cells(Counter, 11) = 1)
Next Counter
MsgBox ("Das war's:" & " " & n & " " & "Stapelanhänger gedruckt")
End Sub
Vielen Dank
Marcus Leu