Op sheets(1).Cells(3, 8) staat het max. toegelaten aantal deelnemers.
Op de andere bladen, wordt in kol A, het aantal deelnemers geteld.
Afhankelijk van het resultaat van die 2 getallen, wordt op de Uform het corresponderende label gevuld.
Case1: Aantal deelnemers >= toegelaten deelnemers, label = "VOLZET"
Case2: Aantal deelnemers < toegelaten deelnemers, label = "(Max. - aantal) - plaatsen vrij"
Case3: Het betreffende tabblad bestaat nog niet, label = Max. aantal deelnemers.(wat in Sheets(1).Cells(3, 8)staat)
Case1&2: Ik krijg de aantallen niet juist berekend.
Case3: Ik krijg de IF-voorwaarde niet verwoord.
Warrige uitleg, misschien maakt de bijlage veel duidelijk.
Op de andere bladen, wordt in kol A, het aantal deelnemers geteld.
Afhankelijk van het resultaat van die 2 getallen, wordt op de Uform het corresponderende label gevuld.
Case1: Aantal deelnemers >= toegelaten deelnemers, label = "VOLZET"
Case2: Aantal deelnemers < toegelaten deelnemers, label = "(Max. - aantal) - plaatsen vrij"
Case3: Het betreffende tabblad bestaat nog niet, label = Max. aantal deelnemers.(wat in Sheets(1).Cells(3, 8)staat)
Case1&2: Ik krijg de aantallen niet juist berekend.
Case3: Ik krijg de IF-voorwaarde niet verwoord.
Warrige uitleg, misschien maakt de bijlage veel duidelijk.
Code:
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
For n = 2 To Sheets.Count
For t = 1 To 10
If Sheets(n).Name = (Me("CheckBox" & t).Caption) Then
If Sheets(n).Range("A:A").SpecialCells(2).Count >= Sheets(1).Cells(3, 8).Value Then
Me("Label" & t + 10).Caption = "VOLZET"
Me("Label" & t + 10).ForeColor = vbRed
Me("CheckBox" & t) = False
Me("CheckBox" & t).Enabled = False '.Locked = True
ElseIf Sheets(n).Range("A:A").SpecialCells(2).Count < Sheets(1).Cells(3, 8).Value Then
Me("Label" & t + 10).Caption = Sheets(1).Cells(3, 8).Value - Sheets(n).Range("A:A").SpecialCells(2).Count & " pl vrij"
Me("Label" & t + 10).ForeColor = vbBlue
[COLOR="#0000CD"]'ElseIf Sheets(n) = Nog niet bestaat Then
' Me("Label" & t + 10).Caption = Sheets(1).Cells(3, 8).Value & " pl vrij"
' Me("Label" & t + 10).ForeColor = vbBlue[/COLOR]
End If
End If
Next t
Next n
End Sub