For next schleife
28.09.2012 13:59:03
Bon
ich stehe wiedereinmal vor einem Problem.
Ich habe ein Tabellenblatt "Anfang".
Ich habe eine etwas längere Berechnung in Schritte unterteilt. Jeder Schritt läuft einzeln wenn ich den entsprechenden Button drücke.
Ich möchte jetzt gerne das Ganze in eine Schleife verpacken.
Ich habe es folgendermaßen versucht, aber leider hat es nicht funktioniert:
Sub Schaltfläche10_Klicken()
Dim i As Integer
For i = 1 To 100 '100 Durchgänge
Tabelle6.CommandButton2_Click
Tabelle6.CommandButton3_Click
Tabelle6.CommandButton4_Click
Tabelle6.CommandButton5_Click
Tabelle6.CommandButton6_Click
Next i
End Sub
Hat jemand eine Idee, was ich falsch gemacht habe?
Zusatzfrage:
Ich hätte gerne, dass am Schluss die drei Ergebnisse mit den geringsten Kosten (über alle 100 durchläufe) stehen bleiben. Geht das?
Gruß, Bon