Ein VBA-Programm in Excel

Optisch aufbereitet sollen die Durchgangs-Tabellenblätter das in der
Abbildung 14 (Seite 33) dargestellte Aussehen haben. Vier Tische, nebeneinander
dargestellt – jeder Tisch besteht aus zwei Spalten, nämlich
Name und Punktzahl – bilden dabei jeweils einen Block. Die Blöcke
wiederum werden untereinander platziert, wobei zwischen zwei Blöcken
jeweils zwei Zeilen frei gelassen werden (aus der Abbildung 14 nicht ersichtlich,
da in unserem Beispiel nur ein Block benötigt wurde).
Die Implementierung erfolgt naturgemäß über mehrere Schleifen:
‣ ganz außen die Schleife der Blöcke For i16b = 1 To Anz_16Bl(d)
‣ innerhalb eines Blockes 4 Tische For itb = 1 To AnzTiProBlock
(beachte globale Konstante Const AnzTiProBlock = 4)
‣ innerhalb eines Tisches 7 Zeilen For j = 1 To 7 'bei den
4er-Tischen 6 Zeilen
Es folgt nun der komplette Quellcode für die 5er-Tische in der Prozedur
Sub Tischzuweisung() (= Fortsetzug von Listing 12):
n = 1
'Zähler für Spieler
it = 1
'Laufvariable für Tische
i5t = 1
'Laufvariable für 5er-Tische
(für 4er-Tische nicht erforderlich, da es nur diese beiden Möglichkeiten gibt)
For i16b = 1 To Anz_16Bl(d)
'Abarbeitung blockweise: mehrere Tische
pro Block (Voreinstellung = 4)
For itb = 1 To AnzTiProBlock
'weitere Abarbeitung tischweise
(AnzTiProBlock = 4)
spalte = SpBeg + 2 * (itb - 1) 'Festlegung der Spalte pro Tisch
If it