Befehlsschaltflächen
07.08.2003 09:38:55
dirk
leider haben mir die gestrigen tipps nix geholfen!
vielleicht gibts noch andere möglichkeiten?????
ich habe 3 befehlsschaltflächen(BSF) bei den jeweils ein listenfeld bei mausklick
erscheint!
mein problem ist folgendes
wenn ich auf eine BSF klicke erscheint das listenfeld das dazugehört!
klicke ich nun auf die nächste BSF bleibt das erste Listenfeld auch offen, was vermeiden werden soll!
gibt es da einen vba - code - if -anweisung oder so?
das wenn ein listenfeld offen ist nicht ein anderes offen sein kann!
danke und grüsse an alle!
dirk
--------------------------------------------------------------
Private Sub CommandButton1_Click()
ListBox1.Visible = Not (ListBox1.Visible)
End Sub
Private Sub CommandButton2_Click()
ListBox2.Visible = Not (ListBox2.Visible)
End Sub
Private Sub CommandButton3_Click()
ListBox3.Visible = Not (ListBox3.Visible)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub