Hallo habe für Excel folgenden VBA Code endeckt:
Option Explicit
Sub Kontrollkästchen_einfügen()
Dim Wiederholungen As Integer, Position As Double
Application.ScreenUpdating = False
Position = 0
For Wiederholungen = 1 To 300
With ActiveSheet.CheckBoxes.Add(18, Position, 24, 18)
.LinkedCell = "$A$" & Wiederholungen
.Characters.Text = ""
End With
Position = Position + 18
Next
End Sub