mit checkboxen Buttons ein/aus blenden
11.08.2015 15:00:31
Beat
Nach gewissen anfangsschwierigkeiten bin ich nun etwas tiefer in VBA und schon stehe ich wieder an.
Ich möchte basierend einer Auswahl an Checkboxen, Buttons ein bzw. Ausblenden.
Wenn CheckBox1 aktiv dann soll der "DE" Button sichtbar sein
Wenn CheckBox2 aktiv dann soll der "EN" Button sichtbar sein, "DE" aber nicht.
Wenn CheckBox1 und 2 aktiv sind dann soll der Button "Alle Sprachen" sichtbar sein die beiden DE und EN Buttons aber unsichtbar.
etc. Ich habe 4 Checkboxen.
da gibt es eine vielzahl von erst selektirten Möglichkeiten. Ich habe nun begonnen dies im _
ersten CheckBox sub einzugeben aber irgendwie exportiert hier die Menge an code und es wird ä _ usserst unübersichtlich:
Public Sub CheckBox1_Change()
'Wenn DE gewählt wird
If Worksheets("LANG").CheckBox1.Value = True Then
CommandButton1.Visible = True
CommandButton2.Visible = False
CommandButton3.Visible = False
Else
CommandButton1.Visible = False
End If
'Wenn DE und EN gewählt & FR und ES nicht gewählt sind
If Worksheets("LANG").CheckBox1.Value = True And Worksheets("LANG").CheckBox2.Value = True _
_
_
_
Then
CommandButton1.Visible = False
CommandButton2.Visible = True
CommandButton3.Visible = False
Else
CommandButton2.Visible = False
End If
' wenn DE und FR gewählt wird
If Worksheets("LANG").CheckBox1.Value = True And Worksheets("LANG").CheckBox3.Value = True _
_
_
_
Then
CommandButton1.Visible = False
CommandButton2.Visible = True
CommandButton3.Visible = False
Else
CommandButton2.Visible = False
End If
' wenn DE und ES gewählt wird
If Worksheets("LANG").CheckBox1.Value = True And Worksheets("LANG").CheckBox4.Value = True _
_
_
_
Then
CommandButton1.Visible = False
CommandButton2.Visible = True
CommandButton3.Visible = False
Else
CommandButton2.Visible = False
End If
If Worksheets("LANG").CheckBox1.Value Then
'Wenn Checkbox1 auf der Tabelle1 aktiviert ist, dann
Worksheets("DE").Visible = True
'Tabelle2 einblenden
Else
Worksheets("DE").Visible = False
'ansonsten Tabelle2 ausblenden
End If
End Sub
gibt es eine bessere Variante als diesen Code in allen 4 Check boxen zu wiederholen?
Mein code blendet gleichzeitg auch das entsprechende Tabellenblatt ein, dies Funktioniert aber einwandfrei.
Ich danke für eure Hilfe.
gruss beat