515 Aufrufe
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
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
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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...