Office: VBA Checkbox

Guten Tag,

ich habe ein kleines Problem.
Ich habe ein Feld, indem mehrere Checkboxen vorhanden sind.
Dort dürfen aber nur max. 6 Stück angeklickt werden.

Code:

Function Zählen()

Dim ctrl As Control
   Dim Anzahl As Integer
   Dim i As Integer


   Anzahl = 0
  
   For i = 0 To 49
           Anzahl = Anzahl - frames.Controls(i).Value
   Next i
   
   Zählen = Anzahl
End Function

Code:

Private Sub C1_Click()
If Zählen() > 6 Then
      MsgBox "Maximal 6 Zahlen erlaubt!"
      C1.Value = False
         End If
End Sub

von dem zweiten Code, habe ich natürlich dementsprechend viele.

Der Fehler erscheint immer beim ersten Code "Anzahl = Anzahl - frames.Controls(i).Value"

Was ist daran falsch?

Würde mich über eine Hilfe sehr freuen.

Mit freundlichen Grüßen

star1990 :)

 

Hallo,

wäre schön gewesen, wenn Du mir auch noch die Art des Fehler mitgeteilt hättest, denn diese Information ist ebenfalls wichtig.
Ich nehme an, sie lautete: Fehler beim Kompilieren - Variable nicht definiert, wobei damit "frames" gemeint war.

Ich nehme ferner an, dass Du eine Userform erstellt hast, in der sich mehrere Rahmenobjekte (Frames) befinden, die wiederum mehrere Checkboxen und sonstige Steuerelemente beinhalten.
Mein nachfolgendes Makro geht davon aus, dass unter den Rahmenobjekten eines den Namen "Frame1" hat, welches mehrere Steuerelemente enthält, wobei die Werte der Steuerelemente, deren Namen mit "CheckBox" beginnt, addiert werden.

Code:

Function Zählen()

    Dim CtrlCh As Control
    Dim Anzahl As Integer

    Anzahl = 0
  
    For Each CtrlCh In Me.Controls("Frame1").Controls
      If CtrlCh.Name Like "CheckBox*" Then
         Anzahl = Anzahl - CtrlCh.Value
      End If
    Next CtrlCh
    
    Zählen = Anzahl
    
End Function

Der Fehler in Deinem Code wurde dadurch ausgelöst, da es zwar eine Auflistung Controls in der Userform und eine Auflistung Controls in einem Frame gibt, aber keine Auflistung namens "Frames" (nur einzelne Frame-Objekte, die aber wieder zur Auflistung Controls gehören).