Ein VBA-Programm in Excel

gänge) und 4 (= Anzahl Runden) versehen werden können, ist dies bei
der Anzahl der Tische nicht möglich; die Anzahl der Tische ist abhängig
von der Anzahl der Teilnehmer und muss daher per Quellcode-
Programmierung berechnet werden:
Private Sub userform_initialize()
Dim AnzSp As Integer
Dim MaxAnzTi As Integer
...
If Worksheets(1).Range("M1").Value = "" Then
AnzSp = 0
Else
AnzSp = Range Worksheets(1).Range("I8").Value 'Anzahl Spieler
End If
Listing 4
Sub
userform_initialize()
Vorbelegung Anzahl der
Tische in TextBox3 mit dem
maximal möglichen Wert
MaxAnzTi = AnzSp \ 4
SpinButton3.Value = MaxAnzTi
TextBox3.Value = SpinButton3.Value
SpinButton1.Min = Worksheets(1).Range("I11").Value + 1
End Sub
Im nächsten Schritt geht es darum, ein Makro für die Änderung der
Tischanzahl zu schreiben. Da die Änderung über das nebenstehende
Drehfeld SpinButton3 erfolgen soll, ist für die TextBox3 selber keine
Codierung notwendig, wohl aber für das nebenstehende Drehfeld. Führen
wir zunächst einen Doppelklick auf die Schaltfläche SpinButton3 in
der Userform StartAuslosung aus, generiert Excel wiederum automatisch
einen leeren Programmrahmen, diesmal mit der Option Change:
Private Sub SpinButton3_Change()
End Sub
In diesem Rahmen werden nun die gewünschten Anpassungen bzw.
Berechnungen vorgenommen (s. auch Listing 16, Seite 43):
Private Sub SpinButton3_Change()
Dim Max_AnzSp As Integer
Dim AnzSp As Integer
Dim i As Integer
Dim MaxAnzTi As Integer
Dim MinAnzTi As Integer
Dim Anz5erTi() As Integer
Dim Anz4erTi() As Integer
Dim Anz_Tische() As Integer
'Max-Anzahl Spieler alle Durchgänge
'Anzahl Spieler in einem Durchgang
'Anzahl Tische Maximum
'Anzahl Tische Minimum
'Anzahl 5er-Tische
'Anzahl 4er-Tische
'Anzahl benötigter Tische insgesamt
Listing 5
Sub
SpinButton3_Change()
If Worksheets(1).Range("M1").Value = "" Then
AnzSp = 0
Else
AnzSp = Worksheets(1).Range("I8").Value 'Anzahl Spieler
End If
27