title image


Smiley Re: Fragen zu Kontrollkästchen Formular WAHR/FALSCH
Hallo,



Option Explicit

Sub KKästchen()

Dim KK As Object, Z As Long, W#, H#, L#, T#

W = 72: H = 18: L = [b1].Left: T = 18

Application.ScreenUpdating = False

[1:65536].RowHeight = 18

For Z = 1 To 10 'wieviele Kontrollkästchen

Set KK = ActiveSheet.CheckBoxes.Add(L, T, W, H)

With KK

.Name = "Kok" & Z

.Characters.Text = "KK" & Z

.Enabled = True

.LockedText = False

.OnAction = ""

.Placement = 3

.PrintObject = True

.Value = 1

.LinkedCell = .TopLeftCell.Offset(0, -1).Address

.Display3DShading = True

End With

T = T + H

Next

Set KK = Nothing

Application.ScreenUpdating = True

End Sub



Die Zielzellen musst du deinen Wünschen gemäß anpassen



Gruß M.I.Nitraum



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: