Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
For m = 1 To Worksheets(erg).Range("B" &<br />
Rows.Count).End(xlUp).Row<br />
Worksheets(erg).Cells(m, n).Borders.L<strong>in</strong>eStyle = xlCont<strong>in</strong>uous<br />
Next m<br />
Next n<br />
Worksheets(erg).Cells(1, 2).Value = "Name Vorname"<br />
With Worksheets(erg)<br />
Set bereich = .Range(.Cells(2, 3), .Cells(Max_AnzSp + 1, Anz_Dg<br />
+ 2))<br />
bereich.Value = ""<br />
End With<br />
Sheets(erg).Range("A2:A" & Max_AnzSp + 1).Value = ""<br />
Dim Mat As Variant<br />
For d = 1 To Anz_Dg<br />
For n = 2 To Max_AnzSp + 1<br />
Mat = Application.Match(Sheets(erg).Range("B" & n), Sheets(d &<br />
". " & dg).Range("K:K"), 0)<br />
If Not IsError(Mat) Then<br />
Sheets(erg).Cells(n, d + 2).Value = Sheets(d & ". " &<br />
dg).Range("L" & Mat).Value<br />
End If<br />
Next n<br />
Next d<br />
H<strong>in</strong>weis 13<br />
Übernahme der Punktzahl<br />
aus den Durchgangs-<br />
Tabellenblättern<br />
Die Ergebnis-Tabelle könnte nach der Übernahme der Punktzahl und<br />
anschließender Sortierung etwa folgendes Aussehen haben:<br />
Abbildung 16<br />
Tabellenblatt Ergebnis<br />
komplett durch formatiert<br />
2.5.3 Das Mischprogramm: wer kommt <strong>in</strong> welchem Durchgang an welchem<br />
Tisch an welchem Platz?<br />
Machen wir nun wieder e<strong>in</strong>en Sprung zurück zum Haupt-<strong>Programm</strong><br />
Sub Auslosung() und kommen zum eigentlichen Kern.<br />
Nachdem der Anwender im Start-Dialog StartAuslosung (s. Abbildung<br />
5) se<strong>in</strong>e <strong>E<strong>in</strong></strong>gaben gemacht hat, steht nun für das Turnier fest, wie viel<br />
Durchgänge gespielt werden, wie viel Runden pro Durchgang gespielt<br />
werden und wie viel Personen auf wie viel 4er-Tische und 5er-Tische<br />
verteilt werden müssen. Die eigentliche Auslosung kann nun beg<strong>in</strong>nen.<br />
36