Ein VBA-Programm in Excel

Aus der Abbildung lässt sich schon mal grob erkennen, was bei der Codierung
alles zu beachten ist:
‣ Spaltenbreiten festlegen
‣ Überschriften berücksichtigen
‣ Unterscheidung zwischen 5er- und 4er-Tischen
‣ Werden alle Tische nebeneinander auf dem Bildschirm platziert,
wird die spätere Eingabe der Punkte umständlich; übersichtlicher
wird es, wenn jeweils 4 Tische zu einem Block zusammengefasst
werden, und die Blöcke jeweils untereinander zu stehen
‣ Neben den Formatierungen der einzelnen Zellen erfolgt die Zuweisung
der Teilnehmer zu den einzelnen Tischen. Auf die Implementierung
dieses Vorganges, dem Mischvorgang, wird im
Abschnitt "2.5.3 Wer kommt in welchem Durchgang an welchem
Platz?" näher eingegangen.
‣ Die Zellen mit dem Wert 0 enthalten als Formel die Summe aller
Punkte pro Tisch
Worksheets(d + 2).Cells(zeile, spalte + 1).FormulaR1C1 =
"=SUM(R[-5]C:R[-1]C)"
Sie muss in jedem Falle als Ergebnis den Wert 0 ergeben (sofern
an den Tischen die Punkte mit Plus/Minus notiert werden). Der
Nutzen dieser Summenformel liegt darin, dass direkt bei Eingabe
der Punktzahl ersichtlich wird, ob an dem betreffenden Tisch
korrekt gezählt wurde.
Hinweis 11
Anzahl der Tische pro Block
s. Listing 3 (Glob. Variable)
Const AnzTiProBlock=4
'Anzahl Tische im 16-er Block
Listing 9
Summenformel pro Tisch
2.5.2.3 Das Tabellenblatt "Ergebnis"
Nachdem der Anwender die Punktzahlen der Spieler in die Durchgangs-
Tabellenblätter eingetragen hat, möchte er sich natürlich die Gesamtergebnisse
in einer Übersicht anschauen können. Hierzu dient das Tabellenblatt
Ergebnis, welches als letztes vom Haupt-Programm Sub Auslosung
erzeugt wird (s. Abbildung 15).
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = erg
'Tabellenblatt "Ergebnis"
ganz am Ende
Worksheets(erg).Range("A1").EntireColumn.ColumnWidth = 4.43
Worksheets(1).Range("M:M").Copy
Destination:=Worksheets(erg).Range("B:B")
...
Listing 10
Tabellenblatt Ergebnis hinzufügen
34