dank der Hilfe von Klaus Dieter kann ich nun dynamisch
CheckBoxen beim öffnen der User Form anlegen.
Alles funktioniert soweit, aber ich komme nicht an die Werte
der Checkbox dran. Ich bin der Meinung dass ich den 5 Checkboxen
die Namen CheckBox1...CheckBox2 usw. zuweise.
Das stimmt aber wohl nicht, denn:
Private Sub CheckBox1_Click()
MsgBox ("Test")
End Sub
führt zu einem Fehler.
Code zur Generierung der Checkboxen:
For n = 1 To 5
Set Chebo = Me.Controls.Add("Forms.CheckBox.1" )
With Chebo
.Name = "CheckBox" & n
.Left = 10
.Top = W
.Width = 120
.Caption = Worksheets("Essen").Cells(n, 1).Value
End With
W = W + 20
Next n
Vielen Dank im Voraus für Eure Hilfe
Gruß Horst