Code "abkürzen"
Gegga
Wollte gerade folgenden Code für ca 50 Optbuttons verwenden:
Private Sub UserForm_Initialize()
OB_1.Caption = Worksheets("Fill In").Range("C2")
If OB_1.Caption = "" Then
OB_1.Visible = False
End If
OB_2.Caption = Worksheets("Fill In").Range("C3")
If OB_2.Caption = "" Then
OB_2.Visible = False
End If
OB_3.Caption = Worksheets("Fill In").Range("C4")
If OB_3.Caption = "" Then
OB_3.Visible = False
End If
OB_4.Caption = Worksheets("Fill In").Range("C5")
If OB_4.Caption = "" Then
OB_4.Visible = False
End If
End Sub
Lässt sich das ned in "verkürzter Schreibweise" bewerkstelligen? Da tipper ich mir ja nenWolf ;)Gruß Gegga