CheckBoxen überprüfen, visible/hidden von Blättern
04.03.2005 12:13:32
Blättern
Ich "bastel" gerade an folgender Funktion:
In einer Arbeitsmappe sind acht Arbeitsblätter vorhanden, eine "Startseite" und sieben Seiten für einzelne Wochentage.
Auf der Startseite habe ich sieben Checkboxen eingebracht, über welche gesteuert werden soll welche Blätter angezeigt (und somit bearbeitet) werden können.
Mein Problem ist nun, daß ich keine Funktion finden kann, die vergleicht in welchern CheckBoxen ein Haken gesetzt wurde, und mit zig If-Anweisungen wollte ich auch nicht arbeiten...
Als Übersicht hier mal der bereits geschriebene Code (nicht wirklich viel, aber immerhin.... ;-) )
Option Explicit
Dim Mdlg
Private Sub CommandButton2_Click() 'Schaltfläche "Alle Tage"
CheckBox1 = True 'Wenn "Alle Tage" gedrückt wird,
CheckBox2 = True 'werden bei allen Tagen die
CheckBox3 = True 'Häkchen gesetzt
CheckBox4 = True
CheckBox5 = True
CheckBox6 = True
CheckBox7 = True
End Sub
Private Sub CommandButton3_Click() 'Schaltfläche "Kein Tag"
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
End Sub
Private Sub CommandButton1_Click() 'Schaltfläche "Los!"
[Hier soll dann irgendwann mal der Code stehen....]
End Sub
Auf jeden Fall bin ich schon mal recht zuversichtlich daß Ihr mir (wie in der Vergangenheit) bei diesem Problem wieder helfen könnt. :-)
mfg, Dan