checkboxen aktivieren
23.07.2003 06:33:53
chris b
habe folgenes Problem, habe diesen Code
Private Sub UserForm_Initialize()
Dim Ctrl As Control
x = 20
y = 10
For Each cb In ActiveWorkbook.Worksheets
y = y + 15
Set testbefehl = Controls.Add("Forms.checkbox.1")
testbefehl.Caption = cb.Name
testbefehl.Name = cb.Name
testbefehl.Left = x
testbefehl.Top = y
Next
End Sub
mit diesem lasse ich in eine Userform Checkboxen erstellen von jedem Tabellenblatt.
Ich möchte aber gerne das es mir in die checkboxen einen hacken setzt, in dem Tabellenblatt ein balttschutz hat.Ich hoffe ihr könnt mir helfen, vielen Dank Christian