ComboBox überschreibt eine andere ComboBox mit Excel 2013 VBA

Question

Ich versuche Comboboxen zu verwenden, um bestimmte Abschnitte meines Excel-Blattes ein- und auszublenden.

Ich habe eine Combobox, die einen bestimmten Block (ComboBox1) von Zellen ein-/ausblendet und einen anderen, der Abschnitte von Zellen innerhalb dieses Blocks (ComboBox2) ein- und ausblendet.

Alles funktioniert akzeptieren, wenn ich den ganzen Block zu zeigen, überschreibt es die Abschnitte, die ich ausgewählt habe versteckt in diesem Block.

Gibt es eine Möglichkeit, ComboBox2 auszuführen, nachdem Sie auf ComboBox1 geklickt haben, um das Arbeitsblatt zu aktualisieren.

Private Sub ComboBox3_Click() 
    ComboBox3.TextAlign = fmTextAlignCenter 
    ComboBox3.List = Array("1", "2", "3", "4") 
    If ComboBox3.Value = "1" Then 
     'ranges to be hidden = True/False 
    End If 
End Sub 
Private Sub ComboBox4_Click() 
    ComboBox4.TextAlign = fmTextAlignCenter 
    ComboBox4.List = Array("0", "5", "6", "7", "8", "9", "10") 
    If ComboBox4.Value = "0" Then 
     'Ranges to be hidden in ComboBox3 block of cells' 
    End if 
End Sub 

Answer 1

Wenn Sie nur das Ereignis nennen wollen, rufen Sie einfach ComboBox4_Click

Private Sub ComboBox3_Click() 
    ComboBox3.TextAlign = fmTextAlignCenter 
    ComboBox3.List = Array("1", "2", "3", "4") 
    If ComboBox3.Value = "1" Then 
    'ranges to be hidden = True/False 
    End If 

    Combo4Handler 

End Sub 
Private Sub ComboBox4_Click() 
    Combo4Handler 
End Sub 

Private Sub Combo4Handler() 
    ComboBox4.TextAlign = fmTextAlignCenter 
    ComboBox4.List = Array("0", "5", "6", "7", "8", "9", "10") 
    If ComboBox4.Value = "0" Then 
    'Ranges to be hidden in ComboBox3 block of cells' 
    End if 
End Sub