TextBox Datum vergleichen und CheckBoxen füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Ole,

hier, versuch mal
https://www.herber.de/bbs/user/163411.xlsm

Mein Code "tut" zwar das, was du haben möchtest, aber ich bin nicht sicher, ob du damit glücklich wirst.

Denn die Haken für Urlaub, krank oder Feiertag müssen ja per VBA-Code gesetzt werden, wenn denn am entsprechenden Datum im Blatt "2024" ein entsprechender "x"-Eintrag steht.

Das Problem ist nur:
Jedes mal, wenn der Haken einer CheckBox gesetzt wird, egal ob per Mausklick oder automatisch durch Code, werden immer die Ereignisse Change und Click ausgelöst.
Wenn du aber im Original in diesen Ereignissen von CheckBoxen Code stehen hast, der eigtl - nur bei Mausklick - ausgelöst werden soll, MUSST du genau DAS überwachen, wenn der Haken "nur" per Code gesetzt wurde.

Ich hab dir in der Bsp-Datei mal die Tage 01.01.2024 und 04.01.2024 programmiert.

Probier mal aus...der Code tut genau, was du haben möchtest.

Du musst aber jeden Code, der im Change- und Click-Ereignis für CheckBox1 und CheckBox4 steht, für alle anderen CheckBoxen wiederholen...und dabei drauf achten, dass die richtigen Namen der CheckBoxen verwendet werden.

Daher kann ich schon verstehen, wieso du im Userform "Übersicht" anstelle CheckBoxen lieber CommandButton verwenden möchtest.
Denn bei CommandButton wäre die ganze Überwacherei nicht notwendig.

Hier das Problem ist aber: Du wirst einen CommandButton nicht so klein hinbekommen wie eine CheckBox.

Konnte ich denn trotzdem etwas helfen?

Ciao
Thorsten

Hi Thorsten,
ich habe mal alles Stück für Stück in mein Projekt eingefügt, nur statt der CheckBoxen mit CommandButtons in der Übersicht. Die entsprechenden CheckBox1 und 4-Ereignisse Change() und Click() habe ich herausgenommen sowie die

pboNoChg = False

in der UserForm_Initialize(). Ich kann jedoch die FPLO UF nicht öffnen aus der Übersicht UF mit Laufzeitfehler 1004 bei



Private Sub CommandButton3_Click()

        FPLO.TextBox1.Value = Übersicht.TextBox1.Value

        FPLO.ComboBox1.Value = Übersicht.TextBox43.Value

        FPLO.Show

End Sub

in der ersten Zeile FPLO.TextBox1.Value = Übersicht.TextBox1.Value. Hast Du eine Lösung?
Ich kann gerne auch nochmal eine Testdatei basteln mit den CommandButtons statt der CheckBoxen. Dein Modul habe ich auch übernommen.

Dankeschön

LG Ole

Beliebteste Forumthreads (12 Monate)

TextBox Datum vergleichen und CheckBoxen füllen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox Datum vergleichen und CheckBoxen füllen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread