Ein VBA-Programm in Excel

Abbildung 15
Tabellenblatt Ergebnis
Die Formatierung der Zellen hält sich hier in Grenzen. Es werden i.w.
lediglich die Teilnehmer nach Spalte "B" kopiert und es wird ein Button
Punkte aus allen Durchgängen generiert. Hinter diesem Button verbirgt
sich das Unterprogramm Sub Ergebnis. Dieser Programmteil sorgt
dafür, dass die Punktzahlen eines jeden Spielers aus den einzelnen
Durchgängen in die Ergebnisliste übernommen werden. Die Spalte "B"
in dem Ergebnis-Tabellenblatt mit den Spielernamen wird Zeile für Zeile
abgearbeitet, wobei für jeden Durchgang nach dem entsprechenden
Namen in der Spalte "K" der Durchgangstabelle (s. auch "2.5.3 Wer
kommt in welchem Durchgang an welchem Platz?") gesucht wird; wurde
er gefunden, wird die betreffende Punktzahl für den Spieler in die Ergebnisliste
übernommen.
Hinweis 12
Spalte "A" ist reserviert für
die Rangfolge (s. Abbildung
16, Seite 36)
Außerdem werden noch zwei weitere Buttons generiert:
ErgSortRangButtonErstellen
ErgDruckButtonErstellen
'Ergebnisliste nach Punktzahl sortieren
'Ergebnisliste ausdrucken
Die sich hinter ihnen verbergenden Makros sind selbsterklärend und
recht einfach zu implemetieren.
Der Quellcode der Ergebnis-Prozedur sieht nun wie folgt aus:
Sub ergebnis()
ErgSortNameButtonErstellen
ErgSortRangButtonErstellen
ErgDruckButtonErstellen
Listing 11
Quellcode Sub Ergebnis()
Anz_Dg = Worksheets(1).Range("I6")
Max_AnzSp = Worksheets(1).Range("H3").Value
Sheets(list).Range("A:A").Copy Destination:=Sheets(erg).Range("B:B")
For n = 1 To Anz_Dg + 3
'und noch ein bisschen die
Tabelle formatieren
Worksheets(erg).Cells(1, n).Interior.ColorIndex = HGrFaSp
Worksheets(erg).Cells(1, n).Font.Bold = True
35