Thema: Aufschriften festlegen

Home

Die Aufschriften der CheckBoxes werden in einer Schleife festgelegt.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Aufschriften festlegen
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife über alle Steuerelemente der UserForm bilden
- Wenn der Typname dem TextBox-Typ entspricht...
- Zähler eins hochzählen
- Dem aktuellen Steuerelement eine Aufschrift zuweisen

Code:


 Private Sub UserForm_Initialize()
   Dim cnt As Control
   Dim iCounter As Integer
   For Each cnt In frmCheckBox.Controls
      If UCase(TypeName(cnt)) = "CHECKBOX" Then
         iCounter = iCounter + 1
         cnt.Caption = "MeineCheckbox " & iCounter
      End If
   Next cnt
End Sub