199 Aufrufe
Gefragt in Tabellenkalkulation von
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

2 Antworten

0 Punkte
Beantwortet von
Hallo Carla,

Sub Kontrollkaestchen_einfuegen()
Dim Wiederholungen As Integer, Position As Double
Application.ScreenUpdating = False
Position = 732
For Wiederholungen = 1 To 5
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=1345, Top:=Position, Width:=24, Height:=17.75)
.LinkedCell = "$A$" & Wiederholungen
.Object.Caption = ""
.Placement = 1
End With
Position = Position + 17.25
Next
End Sub

Gruß

jofed
0 Punkte
Beantwortet von
Hallo,

das ist ja super

Prinzip ist kapiert.

Viiiiielen Dank

Leider habe ich keinen Account um das Bewerten zu können

Aber definitiv die beste Antwort auf mein Frage
...