Ein VBA-Programm in Excel

Wurde er nicht gefunden, wird er neu in die Liste mit aufgenommen.
Dies erscheint zunächst einmal umständlich programmiert; es hat lediglich
damit zu tun, dass in diesem Programm die Möglichkeit berücksichtigt
wird, dass in einem Durchgang Spieler neu hinzukommen oder
- aus welchen Gründen auch immer - nicht weiter am Turnier teilnehmen
(s. auch das folgende Kapitel 2.5.4 Zusatzfunktionen, Punkt (1)).
2.5.4 Zusatzfunktionen
Die Schwerpunkte des Programms wurden in allen wichtigen Punkten
vorgestellt. Das Rüstzeug für die Implementierung in VBA steht nunmehr
bereit.
Das komplette Programm bietet allerdings noch einige Sonderfunktionen,
die im Folgenden vorgestellt werden sollen.
(1) Teilnehmer können nach einem gespielten Durchgang ausfallen
oder neu hinzukommen.
Abbildung 17
Die Zellen I6 bis I11 im Tabellenblatt
"Auslosung"
Die Zellen I6 und I7 werden
nach Eingabe der Startparameter
gefüllt, die Zellen I8 bis
I10 bereits vor Beginn des
Auslosungsprogramms (s. 2.4
Ereignisse in VBE)
In diesem Fall bietet das Programm die Möglichkeit, ab einem bestimmten,
selbst gewählten Zeitpunkt einen oder mehrere noch
nicht gespielte Durchgänge neu zu mischen. Hierzu dient im Tabellenblatt
Auslosung die Zelle "I11" (s. Abbildung 17), in dem die Anzahl
der bereits gespielten Durchgänge manuell hochgesetzt werden
kann. Wenn dann erneut die Schaltfläche Auslosung starten gedrückt
wird, werden nur noch die nicht gespielten Durchgänge neu
gemischt.
Zu diesem Zweck wird im Programm eine Variable DurchBeg deklariert,
die aus der Zelle "I11" eingelesen und um 1 erhöht wird:
DurchBeg = Worksheets(1).Range("I11") + 1
41