AW: in UserForm1 Frame ausblenden
08.12.2004 08:18:05
Andreas
Danke,
mein Fehler war, dass ich UserForm1 initialisiert habe...
aber es funktioniert immer noch nicht .....
hier mal das, was ich programmiert habe...
Private Sub UserForm1_Initialize()
Me.Frame2.Visible = False
Me.Frame3.Visible = False
Me.Frame4.Visible = False
Me.Frame5.Visible = False
Me.Label1.Visible = False
Me.Label2.Visible = False
Me.Label3.Visible = False
Me.Label4.Visible = False
Me.Label5.Visible = False
Me.Label6.Visible = False
Me.Label7.Visible = False
Me.Label8.Visible = False
Me.Label9.Visible = False
Me.Label10.Visible = False
Me.Label11.Visible = False
Me.Label12.Visible = False
Me.Label13.Visible = False
Me.TextBox1.Visible = False
Me.TextBox2.Visible = False
Me.TextBox3.Visible = False
Me.TextBox4.Visible = False
Me.OptionButton7.Visible = False
Me.OptionButton8.Visible = False
End Sub
Private Sub OptionButton1_Click()
Me.Frame2.Visible = True
Me.Frame2.BorderStyle = fmBorderStyleSingle
Me.Frame3.Visible = False
Me.Label7.Visible = True
Me.TextBox3 = True
Me.Label1.Visible = True
Me.Label2.Visible = True
Me.Label3.Visible = True
Me.Label4.Visible = True
Me.Label5.Visible = False
Me.TextBox1.Visible = False
Me.Label6.Visible = True
Me.ListBox1.Visible = False
Me.Label8.Visible = False
Me.TextBox2.Visible = False
Me.Label10.Visible = False
Me.Label11.Visible = False
Me.Label12.Visible = True
Me.Label13.Visible = False
Me.OptionButton7.Visible = True
Me.OptionButton7 = True
Me.Label9.Visible = False
Me.TextBox4.Visible = False
End Sub
Private Sub OptionButton2_Click()
Me.Frame2.Visible = True
Me.Frame2.BorderStyle = fmBorderStyleSingle
Me.Frame3.Visible = False
Me.Label7.Visible = True
Me.TextBox3 = True
Me.Label1.Visible = True
Me.Label2.Visible = True
Me.Label3.Visible = True
Me.Label4.Visible = False
Me.Label5.Visible = True
Me.TextBox1.Visible = True
Me.Label6.Visible = True
Me.ListBox1.Visible = False
Me.Label8.Visible = False
Me.TextBox2.Visible = False
Me.Label10.Visible = False
Me.Label11.Visible = False
Me.Label12.Visible = True
Me.Label13.Visible = False
Me.OptionButton7.Visible = True
Me.OptionButton7 = True
Me.Label9.Visible = False
Me.TextBox4.Visible = False
End Sub
wenn ich jetzt aus dem xl-sheet starte, werden alle labels, optionsbutton etc. eingeblendet.
wenn ich aus "UserForm1_Initialize()" -> "UserForm_Initialize()" mache, sehe ich wirklich nur meine optionsbuttons, kann die auch auswählen, die anderen optionsbutton, labels etc. werden aber dennoch nicht eingeblendet.
...sorry, aber wahrscheinlich bin ich doch zu doof ;-)))
gruß andreas