OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 42.023
Je kan een hele berg Public const. weggooien, want die zijn niet nodig. En de Select Case in de functie Teamnaam kan een heel stuk korter. Namelijk zo:
En nog zo een:
Scheelt ook weer een aantal overbodige declaraties.
Code:
Select Case TeamNr
Case 1 To 19
TeamsNaam = "Team" & Right("00" & TeamNr, 2)
Case 20
TeamsNaam = "Vrijwillig aangewezen"
Etc.
En nog zo een:
Code:
Function VeldNr(Veld As String)
VeldNr = "Poule " & LefTeams(Veld, 1)
End Function