VBA/Checkbox/Statusabfrage/Makro ausführen

[Bloody_Evil]

Hallo ...

Ich bin was VBA betrifft noch ziemlich grün hinter den Ohren.

Ich bastel gerade an einer Datei zur Dienstplangestaltung.

Um die Übersicht zu vereinfachen (es wird das ganze Jahr waagerecht dargestellt, was Absicht ist) würde ich gern mittels Checkboxen in einem Formular Spalten ausblenden, monatsweise.

Das Problem ist, dass die Checkboxen bei Aufrufen des Formulars immer leer sind, egal ob die betroffenen Spalten nun aus- oder eingelbendet sind.

Meine Vorstellung wäre, bei Start des Formulars abzufragen, ob diese bestimmte Spalten ein- oder ausgeblendet sind. Sind sie eingeblendet, soll der Haken in der Checkbox bereits gesetzt sein. Sind die Spalten bereits ausgeblendet, ist natürlich kein Haken gesetzt.

Beispiel:

In der Tabelle "Planung" geht der Januar von Spalte H bis AL.
Starte ich das Formular, wird abgefragt, ob die Spalten "H:AL" ein oder augeblendet sind, der Haken in der für den Januar zuständige Checkbox wird entsprecht gesetzt (oder eben nicht) und eine Änderung des Zustandes mittels Klick ändert entsprechend den Zustand der Spalten. Haken gesetzt, zeigt die Spalten an ... Haken entfernt blendet die Spalten aus.

Ich hoffe, ich konnte mich halbwegs verständlich ausdrücken und freue sowie bedanke schonmal im Voraus für Eure Hilfe.

Gruß

[Kuwer]

Hallo,

Private Sub UserForm_Initialize()

  CheckBox1.Value = Range("H:AL").Width

End Sub

Gruß Uwe