2x alternativ knap

Indsæt dem, der hører sammen i en gruppeboks.

Via knappen med en boks, der står xyz på, i værktøjslinien Formularer

Fedt ... den kendte jeg ikke ... selv om den har været lige foran øjne på mig altid .. hehe

Hvordan gør jeg den usynlig ??

Det er der tilsyneladende ingen mulighed for.

damn ... findes der ikke andre løsninger ??

Kan du ikke skjule dem med dem her ?

Sub skjul()
ActiveSheet.Shapes("Group Box 5").Visible = False
ActiveSheet.Shapes("OptionButton1").Visible = False
ActiveSheet.Shapes("OptionButton2").Visible = False
End Sub
Sub vis()
ActiveSheet.Shapes("Group Box 5").Visible = True
ActiveSheet.Shapes("OptionButton1").Visible = True
ActiveSheet.Shapes("OptionButton2").Visible = True
End Sub

Det ser ud til at funke :o) .... men jeg får denne fejl når jeg køre makroen

http://btka.frac.dk/4images/details.php?image_id=303

Hvis du har indsat formular og ikke kontrolelement skal der snedigt nok være et mellemrum  - med mindre du har navngivet manuelt !

ActiveSheet.Shapes("Option Button 1").Visible = False

Dvs. to mellemrum.

Fejlmeddelelsen kender jeg ikke. Læg evt. koden, eller stumpen hvor fejlen opstår.

aheiss >> jeg er ikke helt med på hvad du mener ?

makroen ser sådan ud PT

Sub skjul5()
ActiveSheet.Shapes("Group Box 5").Visible = False
ActiveSheet.Shapes("OptionButton1").Visible = False
ActiveSheet.Shapes("OptionButton2").Visible = False
End Sub
Sub skjul8()
ActiveSheet.Shapes("Group Box 8").Visible = False
ActiveSheet.Shapes("OptionButton1").Visible = False
ActiveSheet.Shapes("OptionButton2").Visible = False
End Sub
Sub skjul9()
ActiveSheet.Shapes("Group Box 12").Visible = False
ActiveSheet.Shapes("OptionButton1").Visible = False
ActiveSheet.Shapes("OptionButton2").Visible = False
End Sub
Sub skjul10()
ActiveSheet.Shapes("Group Box 10").Visible = False
ActiveSheet.Shapes("OptionButton1").Visible = False
ActiveSheet.Shapes("OptionButton2").Visible = False
End Sub

Det ser jo OK ud. Hvis du har indsat formularer kan du prøve med nedenstående.
Eller optag en makro, for at se knappernes præcise navn:

Sub skjul5()
ActiveSheet.Shapes("Group Box 5").Visible = False
ActiveSheet.Shapes("Option Button 1").Visible = False
ActiveSheet.Shapes("Option Button 2").Visible = False
End Sub
Sub skjul8()
ActiveSheet.Shapes("Group Box 8").Visible = False
ActiveSheet.Shapes("Option Button 1").Visible = False
ActiveSheet.Shapes("Option Button 2").Visible = False
End Sub
Sub skjul9()
ActiveSheet.Shapes("Group Box 12").Visible = False
ActiveSheet.Shapes("Option Button 1").Visible = False
ActiveSheet.Shapes("Option Button 2").Visible = False
End Sub
Sub skjul10()
ActiveSheet.Shapes("Group Box 10").Visible = False
ActiveSheet.Shapes("Option Button 1").Visible = False
ActiveSheet.Shapes("Option Button 2").Visible = False
End Sub

Kan man koge det sammen til en macro ?

Fatter ikke helt hvorfor de to skal være der ?

ActiveSheet.Shapes("Option Button 1").Visible = False
ActiveSheet.Shapes("Option Button 2").Visible = False

kan man ikke nøjes med ?

ActiveSheet.Shapes("Group Box 10").Visible = False

Det er ikke min erfaring. Men denne skjuler / viser aller groupbox og Option buttons :
Sub skjul()
On Error Resume Next
For a = 1 To 100
ActiveSheet.Shapes("Group Box " & a).Visible = False
ActiveSheet.Shapes("Option Button " & a).Visible = False
Next
End Sub

Hvor er det smukt ... det ser lidt bedre ud ... hvis nogle skulle kigge i koden en dag :o)

Takker mange gange ..... smid et svar så alle kan få points :o)

Udmærket !  - og her et svar :-)

Den færdig koden kom til at se sådan ud :o)

Sub skjul()
On Error Resume Next
For a = 1 To 100
ActiveSheet.Shapes("Group Box " & a).Visible = False
ActiveSheet.Shapes("Option Button " & a).Visible = True
Next
End Sub