Hallo zusammen,
ich bin ein ziemlicher VBA-Anfänger und stehe jetzt vor einem Problem. In einer Liste sollen die Werte in einer Zelle in 1er-Schritten erhöht werden (bis +5).
Dann wird geprüft, ob sich darauf beziehende Werte ändern. Das ganze funktioniert auch, allerdings nimmt die Berechnung über die Schleife sehr viel Zeit in Anspruch.
Ist es möglich die Berechnung über ein Array zu beschleunigen?
Vielen Dank vorab
Anbei der Auszug aus dem Code:
b = Cells(Rows.Count, 3).End(xlUp).Row
For i = 6 To b
Cells(i, 37) = Cells(i, 10)
If Cells(i, 22) = "D" Or Cells(i, 39) = 1 Then GoTo weiter1 ' Prüfung auf D Artikel
h = Cells(i, 37).Value
Do Until Cells(i, 39) < Cells(i, 33) Or h > Cells(i, 10) + 4 Or Cells(i, 39) < 2
Cells(i, 37) = Cells(i, 37) + 1
h = h + 1
Loop
If Cells(i, 39) <> Cells(i, 33) Then Cells(i, 40) = "+" Else Cells(i, 37) = Cells(i, 10)
weiter1:
Next