Ich erzeuge eine gewisse Anzahl von Checkboxen zu denen jeweils eine Checkbox parrallel liegt. Bei der einen ist jeweils das Häkchen gesetzt. Ich möchte nun, das sobald ich das Häkchen entferne die parrallel liegende Checkbos ausgeblendet wird.
Irgenwie funktioniert das bei mir nicht. Kann mir jemand helfen?
Private Sub UserForm_Initialize()
ReDim chbSichtbar(37)
ReDim chbUnsichtbar(37)
Dim lngA As Long
Dim wks As Worksheet
Dim sngHoehe As Single
sngHoehe = 25
Set wks = Worksheets("Triggersignal")
For lngA = 0 To 37 Step 1
If wks.Cells(5 + lngA, 3).Value <> "" Then
Set chbSichtbar(lngA) = Me.Controls.Add("Forms.Checkbox.1", "chbSichtbar" & CStr(lngA), True)
'erzeugen der sichbaren Button
chbSichtbar(lngA).Left = 35 'Wird einer von Ihnen angeklickt soll "sec1" sichtbar werden
chbSichtbar(lngA).Top = 25 + abst * 20
chbSichtbar(lngA).Height = 25
chbSichtbar(lngA).Width = 300
chbSichtbar(lngA).Caption = wks.Cells(5 + lngA, 2)
chbSichtbar(lngA).Font.Size = 10
chbSichtbar(lngA).Value = True
Set chbUnsichtbar(lngA) = Me.Controls.Add("Forms.Checkbox.1", "chbUnsichtbar" & CStr(lngA), True)
'Hier werden die unsichtbaren Button erzeugt
chbUnsichtbar(lngA).Left = 8
chbUnsichtbar(lngA).Top = 25 + abst * 20
chbUnsichtbar(lngA).Height = 25
chbUnsichtbar(lngA).Width = 13
chbUnsichtbar(lngA).Visible = True
abst = abst + 1
Else
End If
Next
End Sub
Sub Checkbox_click() 'Hier soll die Abfragung stattfinden
Dim lngA As Long
For lngA = 1 To UBound(chbSichtbar)
If chbSichtbar(lngA).Value = False Then 'Wenn die Checkbox kein Häkchen besitz
chbUnsichtbar(lngA).Visible = True 'ausblenden der anderen parallelen Checkbox
End If
Next
End Sub