Ein VBA-Programm in Excel

For m = 1 To Worksheets(erg).Range("B" &
Rows.Count).End(xlUp).Row
Worksheets(erg).Cells(m, n).Borders.LineStyle = xlContinuous
Next m
Next n
Worksheets(erg).Cells(1, 2).Value = "Name Vorname"
With Worksheets(erg)
Set bereich = .Range(.Cells(2, 3), .Cells(Max_AnzSp + 1, Anz_Dg
+ 2))
bereich.Value = ""
End With
Sheets(erg).Range("A2:A" & Max_AnzSp + 1).Value = ""
Dim Mat As Variant
For d = 1 To Anz_Dg
For n = 2 To Max_AnzSp + 1
Mat = Application.Match(Sheets(erg).Range("B" & n), Sheets(d &
". " & dg).Range("K:K"), 0)
If Not IsError(Mat) Then
Sheets(erg).Cells(n, d + 2).Value = Sheets(d & ". " &
dg).Range("L" & Mat).Value
End If
Next n
Next d
Hinweis 13
Übernahme der Punktzahl
aus den Durchgangs-
Tabellenblättern
Die Ergebnis-Tabelle könnte nach der Übernahme der Punktzahl und
anschließender Sortierung etwa folgendes Aussehen haben:
Abbildung 16
Tabellenblatt Ergebnis
komplett durch formatiert
2.5.3 Das Mischprogramm: wer kommt in welchem Durchgang an welchem
Tisch an welchem Platz?
Machen wir nun wieder einen Sprung zurück zum Haupt-Programm
Sub Auslosung() und kommen zum eigentlichen Kern.
Nachdem der Anwender im Start-Dialog StartAuslosung (s. Abbildung
5) seine Eingaben gemacht hat, steht nun für das Turnier fest, wie viel
Durchgänge gespielt werden, wie viel Runden pro Durchgang gespielt
werden und wie viel Personen auf wie viel 4er-Tische und 5er-Tische
verteilt werden müssen. Die eigentliche Auslosung kann nun beginnen.
36