der auszugsweise Code dient dazu, Checkboxes für maximal 26 Spalten zu erzeugen. Gibt es eine Möglichkeit, an dieser Stelle die CheckBoxes für Spalte D und Spalte E (also, im Grunde Checkbox 4 und 5) direkt auf True einzustellen? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub CheckBoxes()
Dim r As Integer, s As Integer
Dim t As Integer, l As Integer
Dim AM As Object
Dim tbrg As Excel.Range
Dim ktrg As Excel.Range
Dim tebo As MSForms.TextBox
'Dim lbl As MSForms.Label 'doppelt
Dim ktk As MSForms.CheckBox
Dim sp, we As Integer
' Kontrollkästchen (CheckBoxen) erzeugen
l = 0 ' Wert l auf null
t = 0 ' Wert t auf null
Range("A" & 1, Cells(1, ziel)).Select ' Anzahl der Beschriftungen ermitteln
For Each ktrg In Selection ' Start der Schleife zum Erzeugen der _
_
Labels
Set ktk = Me.Controls.Add("Forms.CheckBox.1") ' Label zufügen
If xk >= 400 Then ' wenn xk > 400, dann ...
t = -260 ' ... Wert t korrigieren
l = 250 ' ... Wert l korrigieren
End If ' Ende der Bedingung
With ktk ' Parameter für CheckBox ...
.Left = 220 + l ' ... Position linke Seite
.Top = xk + t ' ... Position Oberkante
.Width = 70 ' ... Breite
End With ' Ende Parameter übergeben
xk = xk + 20 ' Variable für Oberkante hochzählen
Next ktrg ' Wendepunkt für Schleife
End Sub