String in Object umwandeln
27.03.2003 09:55:14
Bernhard
Konkret möchte ich eine Userform mit mehreren Checkboxen initialisieren. Es sollen nur die Checkboxen angezeigt werden, deren Name in einem Worksheet drinsteht. Hier mein bisheriger Code:
Private Sub userform_initialize()
'einlesen wieviele Checkboxen sichtbar sein sollen
AnzahlCheckboxen= Worksheets("zu_sehende_Checkboxen").Cells(1,1).Value
For i = 1 To AnzahlCheckboxen
'einlesen des Namens der Checkbox
checkbox = Worksheets("zu_sehende_Checkboxen").Cells(i + 2, 2).Value
If Not Thema = "" Then
Thema.Visible = True
End If
Next i
End Sub