VBA Loop Counter Schrittgröße ändern

Hallo zusammen,
nutze ich den For Loop mit einem Counter. Folgende Frage: Wie kann ich die Schrittgröße des Counters von 1 auf 0.001 verkleinern?
Sub Optimisation()
Dim Counter_Factor_Amz As Integer
Dim Counter_Factor_Mwst As Integer
Range("Factor_amz").Value = Range("Min_Amz")
Range("Factor_Mwst").Value = Range("Min_Mwst")
Range("Mindestpreis").Value = 0
For Counter_Factor_Amz = Range("Min_Amz").Value To Range("Max_Amz").Value Step 0.1
Range("Factor_amz").Value = Counter_Factor_Amz
For Counter_Factor_Mwst = Range("Min_Mwst").Value To Range("Max_Mwst").Value Step 0.1
Range("Factor_Mwst").Value = Counter_Factor_Mwst
If Range("Mindestpreis").Value = Range("Sellerlogic_Mindestpreis").Value Then
Range("Sellerlogic_Amz").Value = Counter_Factor_Amz
Range("Sellerlogic_Mwst").Value = Counter_Factor_Mwst
Range("Mindestpreis") = Range("Sellerlogic_Mindestpreis").Value
End If
Counter_Factor_Mwst = Counter_Factor_Mwst + 0.01
Next Counter_Factor_Mwst
Next Counter_Factor_Amz
Freue mich auf Eure Antworten!
Vielen Dank, J

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wie kann ich den Teil performanter machen, sodass es nicht Ewigkeiten dauert (ohne die Anzahl der Nachkommastellen zu reduzieren)?

Sub Optimisation()
Dim Counter_Factor_Amz As Double
Dim Counter_Factor_Mwst As Double
Range("Factor_amz").Value = Range("Min_Amz")
Range("Factor_Mwst").Value = Range("Min_Mwst")
Range("Mindestpreis").Value = 0
Application.ScreenUpdating = False
For Counter_Factor_Amz = Range("Min_Amz").Value To Range("Max_Amz").Value Step 0.0001
Range("Factor_amz").Value = Counter_Factor_Amz
For Counter_Factor_Mwst = Range("Min_Mwst").Value To Range("Max_Mwst").Value Step 0. _
0001
Range("Factor_Mwst").Value = Counter_Factor_Mwst
If Range("Mindestpreis").Value = Range("Sellerlogic_Mindestpreis").Value Then
Range("Sellerlogic_Amz").Value = Counter_Factor_Amz
Range("Sellerlogic_Mwst").Value = Counter_Factor_Mwst
Range("Mindestpreis") = Range("Sellerlogic_Mindestpreis").Value
End If
Next Counter_Factor_Mwst
Next Counter_Factor_Amz
Application.ScreenUpdating = True
End Sub

Würde es helfen, eine Range anzugeben (und auch Ungenauigkeit hinzunehmen)?

 If Range("Mindestpreis").Value = Range("Sellerlogic_Mindestpreis").Value

Sodass der Mindestpreis kein einziger Wert ist, sonder eine Range von z.B. 199.90 bis 200.10.
Freue mich auf Hilfe, J

Beliebteste Forumthreads (12 Monate)

VBA Loop Counter Schrittgröße ändern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Loop Counter Schrittgröße ändern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread