Ein VBA-Programm in Excel

Sheets(list).Range("A" & lz).Value = Sp_Name 'und in dieser den Namen
eintragen
Worksheets(list).Cells(lz, d + 1).Value = it & "(" & j - 1 & ")"
'mit Eintrag der Tisch- und Platz-Nr in der betreffenden Durchgangsspalte
Else 'falls schon vorhanden
Worksheets(list).Cells(MatchZeile, d + 1).Value = it & "(" & j - 1
& ")"
'Eintrag der Tisch- und Platz-Nr in der betreffenden Durchgangsspalte
End If
n = n + 1
'Nach Eintragung in Durchgangs-Tabelle
Spierzähler um 1 erhöhen
End Sub
Für jeden Tisch wird zunächst einmal eine Überschrift erzeugt (Case 1),
dann in der Unterprozedur ZelleMitNameFuellen() die Spielernamen
eingetragen (Case 2 To 6) und zum Schluss (Case 7) noch eine Summenformel
notiert, in der die Summe der erreichten Punktzahl pro
Tisch berechnet wird (s. auch Listing 9). Sie dient lediglich als Kontrolle,
da bekanntermaßen bei einer Plus-Minus-Wertung die Gesamtsumme
immer Null sein muss.
Sukzessive holt sich die Unterprozedur ZelleMitNameFuellen() aus dem
1.Tabellenblatt (=Tabellenblatt mit dem Namen Auslosung) eine zuvor
zufällig ausgewählte Zelle der Spalte "M"
Sp_Name = Worksheets(1).Range("M" & (Zuf_Nr(d, n))).Value
und überträgt dessen Inhalt – den Spielernamen – in die dafür vorgesehene
Zelle der Durchgangstabelle:
Worksheets(d + 2).Cells(zeile, spalte) = Sp_Name
Der gleiche Spieler(name) wird zusätzlich noch in Spalte "K" eingetragen,
Worksheets(d + 2).Cells(n, 11).Value = Sp_Name
und mit ihm noch in der Zelle rechts daneben, also in Spalte "L" der
gleichen Zeile eine Formel zur Übernahme der Punkte; somit werden
alle Änderungen in der Punktezahl-Zelle des Spielers mit übernommen:
Worksheets(d + 2).Cells(n, 12).Formula = "=R" & zeile & "C" & spalte +
1 & ""
Die beiden Spalten "K" und "L" spielen später bei Übernahme der
Punktzahl eines Spielers in das Tabellenblatt Ergebnis noch eine wichtige
Rolle.
Hinweis 14
Die Spielerliste wurde bereits
zu Beginn des Main-Programms
Sub Auslosung von
Spalte "F" nach Spalte "M"
kopiert.
Hinweis 15
s. Listing 11 bzw. Hinweis
13, Seite 36
Im weiteren Verlauf wird in dem Tabellenblatt Liste nach dem betreffenden
Spielernamen gesucht:
MatchZeile = Application.Match(Sp_Name, Sheets(list).Range("A:A"),
0)
40