Hi, Danke für die Antwort
hatte heute erst zeit um weiter zu machen. bin leider nicht so erfolgreich gewesen
das is mein code für eine checkbox in der uf zu erstellen,
Sub Add_Checkbox()
Dim checkbox As Object
'Checkboxen hinzufügen
Set checkbox = UFTo_Do_Einteilung.Controls.Add("Forms.CheckBox.1")
' Eigenschaften festlegen
With checkbox
.Name = "Check1"
.Caption = "Check here"
.Left = 10
.Top = 10
.Height = 20
.Width = 60
End With
End Sub
aber ich weiß nicht wie ich mehrere checkboxen einfügen kann
kann ich wie beim unteren code iwo einfach nur einen multiplikator reinhauen ?
Sub Add_Checkbox()
Dim checkbox As Object
Dim zahl_checkbox As Long
zahl_checkbox = zahl_checkbox = Sheets("data").Range("p1").Value
'Checkboxen hinzufügen
Set checkbox = UFTo_Do_Einteilung.Controls.Add("Forms.CheckBox.1") * zahl_checkbox
' Eigenschaften festlegen
With checkbox
.Name = "Check1"
.Caption = "Check here"
.Left = 10
.Top = 10
.Height = 20
.Width = 60
End With
End Sub
und dann vllt mit for each checkbox in UFTo_Do_Einteilung die Position festlegen -> .Top = 10 *zahl_checkbox
ich verzweifle :-( danke
|