Abfrage vieler Checkboxes auf Userform

[Bernd Endner]

Hi Newsgroup,
ich hoffe, ich bin nicht off Topic hier.
Ich habe ein Userform einer Excelldatei hinzugefügt, inkl.
über 20 Checkboxen.
Nun möchte ich diese nicht mittels Click-Ereignis oder so
abfragen, sonder mittels Schleife o.ä.
Bei VB gibt es die Möglichkeit, Steuerelementefelder zu
erstellen, in VBA bekomme ich es nicht hin.
Geht das auch mit VBA?
Wie komme ich an den Value der Checkboxen heran, wenn ich
so was machen würde:
For Each obj In Me.Controls...
obj.Name ... 'Auf Value kann hier nicht zugegriffen werden?
next

Merci vielmals
BerndE

[Hajo]

Hallo Bernd

meinst Du so was

Private Sub CommandButton1_Click()
Dim cb As Control
Dim I As Integer
For Each cb In Me.Controls
If Left(cb.Name, 5) = "Check" Then
Select Case cb.Name
Case "CheckBox1"
If CheckBox1 = True Then
MsgBox "Aktion für Checkbox1"
End If
Case "CheckBox2"
If CheckBox2 = True Then
MsgBox "Aktion für Checkbox2"
End If
Case "CheckBox3"
If CheckBox3 = True Then
MsgBox "Aktion für Checkbox3"
End If
Case "CheckBox4"
If CheckBox4 = True Then
MsgBox "Aktion für Checkbox4"
End If
Case "CheckBox5"
If CheckBox5 = True Then
MsgBox "Aktion für Checkbox5"
End If
Case "CheckBox6"
If CheckBox6 = True Then
MsgBox "Aktion für Checkbox6"
End If
End Select
End If
Next
End Sub

Gruß Hajo

"Bernd Endner" <somy...@yahoo.de> schrieb im Newsbeitrag
news:051e01c31c05$60e60f50$a301...@phx.gbl...

[Bernd Held]

Hallo Bernd , hallo Hajo,

sowas in der Art könnte es auch bringen:

For Each cb In Me.Controls

If TypeName(cb) = "CheckBox" Then cb.Value = True
Next cb

Damit würden alle Kontrollkästchen aktiviert.

Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF)
unter http://held-office.de

"Hajo" <hajoz...@web.de> schrieb im Newsbeitrag
news:u6t2LhDH...@TK2MSFTNGP12.phx.gbl...

[Björn Seebeck]

Hallo Bernd!

Auf den Wert der Checkboxen kannst Du über .Object zugreifen.

Private Sub CommandButton1_Click()
Dim cnt As Control

For Each cnt In Me.Controls
Debug.Print cnt.Name + " " + CStr(cnt.Object)
Next cnt
End Sub

Funktioniert allerdings nicht für alle Steuerelemente, Frames werfen
z.B. einen Fehler, so dass Du diese ggf. abfangen musst.

Gruss,
Björn