Verlosung
Werner
wir möchten eine Verlosung durchführen. Dieses Makro zählt die Zahlen von 0 bis unendlich hoch. Es sollen aber nur die Zahlen hoch gezählt werden die in der Spalte D stehen. Die Spalte D ist dynamisch, so dass mal mehr oder weniger Zahlen drin stehen. Der Durchlauf, soll sich so lange wiederholen bis die Stop Schaltfläche betätigt wird.
Wie muss das Makro lauten um das zu realisieren?
Private Sub cmdStart_Click()
zahl = 0
'Hier merkt man sich den Zustand ob Stop gedrückt wurde
Sheets("Test").Range("C9") = False
'Schleifenvaariable auf False setzen damit Schleife läuft
'Schleife Starten
While Sheets("Test").Range("C9") = False
DoEvents 'Events einschalten damit während des Schleifenlaufs der Stopbotton Event
'erkannt wird
zahl = zahl + 1 'Zähler für Zahl
TextBox1 = zahl
Wend
End Sub
Die Datei https://www.herber.de/bbs/user/74064.xls wurde aus Datenschutzgründen gelöscht