Eine Gruppenform basierend auf dem Eingang erscheinen/verschwinden lassen

Question

Wenn der Eingang in "C18" 1 ist, sollte die Gruppe 1/2/3/4 (Liniengruppen) verschwinden. Passiert nicht.

Code:

Private Sub Design_Click() 

    Dim TorsionGroup As ShapeRange 
    Dim Toption As Integer 

    Set Toption = Range("C18") 

    Set TorsionGroup = Shapes.Range(Array("Group 1", "Group 2", "Group 3", "Group 4")) 

    If Toption = 1 Then 
     ActiveSheet.TorsionGroup.GroupItems().Visible = False 
    Else 
     ActiveSheet.TorsionGroup.GroupItems().Visible = True 
    End If 

End Sub 

Answer 1

Public Sub Design_Click() 
    Shapes.Range(["Group "&column(a:d)]).Visible = [C18] = 1 
End Sub 

oder wenn Sie Gruppe die Gruppen in einer einzigen Gruppe, nur:

Public Sub Design_Click() 
    [Group 5].Visible = [C18] = 1 
End Sub