Checkboxen in Schleifen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Morgen Conny,
in dem Beispiel werden die Checkboxen in einer Collection zusammengefasst. Das ist von Vorteil, wenn sich sehr viele Controls auf einem Userform befinden. Denn in einer Schleife über alle Controls, werden auch alle durchlaufen. Sind sie in einer Collection zusammengefasst, kannst du eine Schleife über die Collection laufen lassen, was dann schneller geht.
Du kannst es aber auch so machen:
Diese Routine liefert den Typ des Controls zurück.
Private Sub test1()
    Dim frmControl As Control
    For Each frmControl In Me.Controls
        Debug.Print TypeName(frmControl)
    Next
End Sub

Diese Routine liefer Wahr zurück, wenn das Control eine Checkbox ist
Private Sub test2()
    Dim frmControl As Control
    For Each frmControl In Me.Controls
        Debug.Print TypeOf frmControl Is MSForms.CheckBox
    Next
End Sub

Diese Routine liefert den Wert der Checkboxen Checkbox1 bis Checkbox3 zurück, so die Namen auch so lauten.
Private Sub test3()
    Dim intIndex As Integer
    For intIndex = 1 To 3
        Debug.Print Me.Controls("CheckBox" & CStr(intIndex)).Value
    Next
End Sub

Aber, wenn sich die Checkboxen in einem Frame befinden, so sind diese Controls des Frames. Ein Frame ist ein so genanntes Containerobjekt. Das geht dann so:
Private Sub test4()
    Dim frmControl As Control
    For Each frmControl In Me.Frame1.Controls
        Debug.Print TypeOf frmControl Is MSForms.CheckBox
    Next
End Sub

Wobei du hier auch die anderen Methoden anwenden kannst.
Gruß
Nepumuk

Private Sub CommandButton1_Click() Dim frmControl As Control For Each frmControl In Me.Controls If TypeOf frmControl Is MSForms.CheckBox Then ' frmControl.Name gibt z.B. den Namen aus. ' frmControl.Value gibt z.B. den Zustand aus. MsgBox "Die Checkbox " & frmControl.Name & " ist angeklickt!" & vbCr & _ "Das ist " & frmControl.Value, vbInformation End If Next End Sub

Sub Box_lesen() With Tabelle1 Box1_1 = .Cells(1,1) Box1_2 = .Cells(1,2) Box1_3 = .Cells(1,3) Box2_1 = .Cells(2,1) Box2_2 = .Cells(2,2) Box2_3 = .Cells(2,3) Box3_1 = .Cells(3,1) Box3_2 = .Cells(3,2) Box3_3 = .Cells(3,3) End With End Sub

Danke, Danke, Danke.
Dies hat nun mehr Probleme gelöst, als ich zu hoffen wagte, es gibt jetzt noch ein winziges Problem, da ich auf Knopfdruck alle Checkboxen speichern will, egal ob sie sich geändert haben oder nicht. Der Sinn dabei ist, dass ich die Checkboxen mehrfach verwende und den Speicherbereich über eine ComboBox festlege. Aber ich denke das bekomme ich morgen hoffentlich ohne Hilfe hin. ;-)
Gruß Conny
So siehts derzeit aus, läuft echt super.
UserForm:
Option Explicit
Dim objCheckBox() As clsCheckBox
Sub Fahrer_Einsatz_lesen()

Dim intZeile, intSpalte As Integer 'Bereich wo die Daten gespeichert werden
Dim intFahrer_Nr_intern, intGP_Nr As Integer 'Fahrer_Nr_intern / GP_Nr

With Team_Name 'ComboBox mit Teamnamen zur Bereichsfestlegung

If .ListIndex intSpalte = 3
intZeile = 5 * .ListIndex + 3
Else 'Team 06-11
intSpalte = 28
intZeile = 5 * (.ListIndex - 6) + 3
End If

End With

With Einsatz

For intFahrer_Nr_intern = 1 To 4
For intGP_Nr = 1 To 20
Me.Controls("F" & CStr(intFahrer_Nr_intern) & "_" & CStr(intGP_Nr)) = _
.Cells(intFahrer_Nr_intern + intZeile, intGP_Nr + intSpalte)
Next intGP_Nr
Next intFahrer_Nr_intern

End With
Speichern.Visible = False

End Sub
Klassenmodul:
Option Explicit
Public WithEvents frmCheckBox As MSForms.CheckBox


Private Sub frmCheckBox_Change()
Dim strAddress As String
Dim intSpalte, intZeile As Integer
With Eingabe.Team_Name 'ComboBox mit Teamnamen zur Bereichsfestlegung
If .ListIndex < 6 Then              'Team 00-05
intSpalte = 3
intZeile = 5 * .ListIndex + 3
Else                                'Team 06-11
intSpalte = 28
intZeile = 5 * (.ListIndex - 6) + 3
End If
End With
strAddress = Mid(frmCheckBox.name, 2)
Test.Cells((CLng(Split(strAddress, "_")(0))) + intZeile, (CLng(Split(strAddress, "_")(1))) + intSpalte) = -frmCheckBox
End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Checkboxen in Schleifen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread