Ein VBA-Programm in Excel

Außerdem werden bei Spielbeginn (DurchBeg = 1) alle Tabellenblätter
entfernt, jedoch bei einer erneuten Auslosung ab dem zweiten
Durchgang nur die noch nicht benutzten Durchgangstabellenblätter.
Die Tabellenblätter Liste und Ergebnis werden ohnehin in jedem
Fall neu generiert.
Public DurchBeg As Integer 'bei welchem Durchgang soll
begonnen werden
...
DurchBeg = Worksheets(1).Range("I11") + 1
...
If DurchBeg = 1 Then
'bei Spielbeginn alle Tabellenblätter löschen bis auf das
"Auslosung"s-Tabellenblatt
For d = 1 To (ActiveWorkbook.Sheets.Count - 1)
Sheets(2).Delete
Next
End If
...
If DurchBeg > 1 Then
On Error Resume Next
For d = DurchBeg To MaxAnzDg
Sheets(d & ". " & dg).Delete
Next
End If
...
'falls erneute Auslosung (ab
Durchgang 2),
'die Durchgangstabellenblätter
löschen,
'die anschließend per Auslosung
'neu erstellt werden
Listing 14
Nach einem bereits gespielten
Durchgang soll neu gemischt
werden
(2) Die Gesamtanzahl der Tische lässt sich dadurch reduzieren, dass
die Anzahl der 5er-Tische erhöht wird auf das maximal Mögliche
Die Möglichkeit hierzu wurde bereits bei der Erläuterung der Dialogbox
für die Startparameter der Auslosung im Kapitel 2.5 Der
Kern des Programms: die Auslosung erwähnt.
Die Zellen "I9" = Anzahl 4er-Tische und "I10" = Anzahl 5er-Tische
(s. Abbildung 17) werden direkt bereits bei der (ereignisgesteuerten)
Aufnahme eines Spielers in die Teilnehmerliste (s. Kap. "2.4 Ereignisse
in VBE") berechnet. Da es sich um ganzzahlig definierte Zellen
handelt, ist die Berechnung auf recht einfache Weise zu bewerkstelligen:
Hinweis 16
Im Kapitel "2.4 Ereignisse
in VBE" wurden bereits die
in Abbildung 17 zu sehenden
Zellen "I8", "I9" und "I10" im
Tabellenblatt "Auslosung"
vorgestellt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
...
Range("I9").Value = Range("I8").Value \ 4
'I8 = Anzahl der
Teilnehmer
Range("I10").Value = Range("I8").Value Mod 4 'Rest bei Division
durch 4
Listing 15
Berechnung der Werte für
Zellen "I9" und "I10"
42