Ein VBA-Programm in Excel

Die Zeile, in der er in Spalte "F" eingetragen wurde, ist leicht wieder
auffindbar, da die Spieler-Nummer in "D13" zwischengespeichert wurde:
Offset(0, 2). Der Löschvorgang wird ausgelöst über die Anweisung
Cells(Target.Offset(0, 2) + 1, 6) = "", also das Löschen derjenigen Zelle,
dessen Zeile um den Wert 1 erhöht in "D13" steht und dessen Spalte
gleich 6 ist. Ebenso muss die in "C13" vorgenommene Markierung wieder
entfernt werden, und es muss die Anzahl der Spieler, die Anzahl der
Tische und die Anzahl der 5er-Tische korrigiert werden.
Vervollständigen Sie den Quellcode für den Doppelklick auf ein Zelle
in Spalte "C".
Übung 3
Ereignissteuerung
2.5 Der Kern des Programms: die Auslosung
Nachdem sich die Teilnehmer angemeldet haben und in die Spielerliste
in Spalte "F" aufgenommen wurden, erfolgt die
Auslosung, d.h. die Zuordnung der einzelnen
Spieler zu den Spieltischen. Hierfür steht im
Tabellenblatt Auslosung ein Button mit dem Text Auslosung starten
bereit (erstellen lässt er sich über die Menüleiste mit
ENTWICKLERTOOLS, EINFÜGEN aus der Gruppe
STEUERELEMENTE, Element BEFEHLSSCHALTFLÄCHE). Ein
Klick auf diesen Button startet das Main-Programm Sub Auslosung() im
Modul des Tabellenblattes Auslosung.
An dieser Stelle ist nun der Zeitpunkt gekommen, den Aufbau und die
wesentlichen Bestandteile des Auslosungsprogramms zunächst einmal
in groben Zügen vorzustellen, um anschließend in den Kapiteln 2.5.1 bis
2.5.3 auf die einzelnen Teile näher einzugehen.
Zu Beginn des Programms Sub Auslosung() sollen vom Anwender über
einen Dialog (s. Abbildung 5, Seite 22) die Startparameter "Anzahl der
Durchgänge" und "Anzahl der Runden pro Durchgang" festgelegt werden.
Anschließend besteht die wesentliche Aufgabe des Programms darin
‣ ein Tabellenblatt Liste zu erstellen, aus der hervorgeht, wer in welchem
Durchgang an welchem Tisch mit welcher Platz-Nr teilnimmt
(s. 2.5.2.1 Das Tabellenblatt "Liste")
‣ pro Durchgang ein Tabellenblatt für die Eingabe der erreichten
Punkte zu erstellen (s. 2.5.2.2 Pro Durchgang je ein Tabellenblatt)
20