Gruppe
Dialog
Problem
UserForm-CheckBoxes sollen nach den Zellinhalten im Bereich A1:B4 benannt werden. Ist die Zelle leer, soll die CheckBox deaktiviert werden.
ClassModule: frmEnabled
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range
Dim iCounter As Integer
Set rng = Range("A1:B4")
For iCounter = 1 To 8
If IsEmpty(rng(iCounter)) Then
Controls("CheckBox" & iCounter).Enabled = False
Else
Controls("CheckBox" & iCounter).Caption = rng(iCounter)
End If
Next iCounter
End Sub
StandardModule: Modul1
Sub CallForm()
frmEnabled.Show
End Sub