Ein VBA-Programm in Excel

If AnzSp > Max_AnzSp Then
Max_AnzSp = AnzSp
Worksheets(1).Range("H3").Value = Max_AnzSp
End If
MaxAnzTi = AnzSp \ 4
If AnzSp Mod 5 = 0 Then
MinAnzTi = AnzSp \ 5
Else
MinAnzTi = AnzSp \ 5 + 1
End If
SpinButton3.Min = MinAnzTi
SpinButton3.Max = MaxAnzTi
TextBox3.Text = SpinButton3.Value
ReDim Preserve Anz5erTi(MinAnzTi To MaxAnzTi)
ReDim Preserve Anz4erTi(MinAnzTi To MaxAnzTi)
For i = MinAnzTi To MaxAnzTi
Anz4erTi(i) = 5 * i - AnzSp
Anz5erTi(i) = i - Anz4erTi(i)
Next i
TextBox4.Value = Anz5erTi(SpinButton3.Value)
TextBox5.Value = Anz4erTi(SpinButton3.Value)
End Sub
Durch die Variablen Max_AnzSp und AnzSp soll man sich nicht irritieren
lassen. Sie dienen im Programm nur zur Differenzierung nach Anzahl
der Spieler pro Durchgang, falls mal jemand nach einem Durchgang
aussteigt oder neu dazu kommt (s. 2.5.4 Zusatzfunktionen). Es soll
hier eigentlich nur deutlich werden, wie die Eigenschaften dieses Elementes
durch die Makro-Programmierung gesteuert werden können.
Zunächst einmal werden die maximale und minimale Anzahl an benötigten
Tischen berechnet (MaxAnzTi und MinAnzTi) und ihre Werte
den Variablen SpinButton3.Min und SpinButton3.Max zugewiesen.
Damit hat das Drehfeld SpinButton3 die Eigenschaften maximal möglicher
Wert und minimal möglicher Wert zugewiesen bekommen. Da
über die Anweisung TextBox3.Text = SpinButton3.Value die TextBox3
mit dem Drehfeld SpinButton3 verbunden ist, kann somit die Text-
Box3 jetzt nur noch Werte innerhalb dieses Intervalls annehmen. Aus
diesen Ausführungen wird auch deutlich, dass in diesem Fall eine
Quellcode-Programmierung unumgänglich ist, da Maximal- und Minimal-Wert
jeweils variabel sind. Ein Eintrag im Eigenschaften-Fenster
macht somit keinen Sinn, auch wenn diese Optionen im Eigenschaftenfenster
von SpinButton3 mit Max bzw. Min vorgesehen sind und somit
auch möglich wären.
Aus dem Quelltext geht ferner hervor, dass für jeden möglichen Wert
zwischen der minimalen und maximalen Anzahl an Tischen eine Aufteilung
in Anzahl 4er-Tische (= TextBox4) und Anzahl 5er-Tische (=
28