Hallo,
im Thread "Steuerelement "Kontrollkästchen" in Excel " ist ein super Makro drinne, dass 5 Kontrollkästchen (AktivX Steuerelement) untereinander in Spalte A setzt
Wie müsste der Code aussehen, wenn ich die Kästchen in Spalte W ab Zeile 50 gesetzt haben möchte?
Das ist der Code aus dem o.g. Threat für eine Zeilenhöhe von 17,5:
Sub Kontrollkaestchen_einfuegen()
Dim Wiederholungen As Integer, Position As Double
Application.ScreenUpdating = False
Position = 0
For Wiederholungen = 1 To 5
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=17.25, Top:=Position, Width:=24, Height:=17.75)
.LinkedCell = "$A$" & Wiederholungen
.Object.Caption = ""
.Placement = 1
End With
Position = Position + 17.25
Next
End Sub