Hallo!!!
habe folgenden Code. Erzeuge dabei verschiedene Anzahl von Button zu denen ein jeweils paralleler Button liegt, der erst sichtbar werden soll, wenn der andere makiert ist. ich hab keine Ahnung was ich falsch mach!! Dies ist bur ein Ausschnitt!!
For A = 0 To 37 Step 1
If Cells(5 + A, 3).Value "" Then
Set chb1 = Me.Controls.Add("Forms.Checkbox.1", "chb1" & A, True)
With chb1 'erzeugen der sichbaren Button
.Left = 35 'Wird einer von Ihnen angeklickt soll "sec1" sichtbar werden
.Top = oben + trig * 20
.Height = höhe
.Width = breite
.Caption = Cells(5 + A, 2)
.Font.Size = 10
End With
Set sec1 = Me.Controls.Add("Forms.Checkbox.1", "sec1" & A, True)
With sec1 'Hier werden die unsichtbaren parallelen Button erzeugt
.Left = 8
.Top = oben + trig * 20
.Height = höhe
.Width = 13
.Visible = False
End With
trig = trig + 1
Else
End If
Next A
' Dim A As Variant
For Each A In Me.Controls 'Ab hier soll abgefragt werden ob ein
'Kästchen makiert ist. Dieses soll dann sichtbar werden
If A.Name Like "chb1*" Then
If A.Value = True Then
Visible = True
Exit For
End If
End If
Next
End Sub
Danke für die Hilfe Gruß Ingo!!!