VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Benennung und Aktivierung von CheckBoxes gem. Zellinhalten

Gruppe

Dialog

Bereich

CheckBox

Thema

Benennung und Aktivierung von CheckBoxes gem. Zellinhalten

Problem

UserForm-CheckBoxes sollen nach den Zellinhalten im Bereich A1:B4 benannt werden. Ist die Zelle leer, soll die CheckBox deaktiviert werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox