Formular mit Kontrollkästchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CheckBox26_Click() Dim Box As OLEObject If CheckBox26 = True Then For Each Box In ActiveSheet.OLEObjects Box.Object = True Next Box Else For Each Box In ActiveSheet.OLEObjects Box.Object = False Next Box End If End Sub

Hi Karin,
vielen Dank, dein Code funktioniert einwandfrei. Ich habe allerdings noch eine weitere Frage an dich. Wenn das Kontrollkästchen angeklickt wird, dann werden momentan alle Kästchen angeklickt. Wie müsste ich den Code schreiben wenn ich möchte, dass wenn ich den Haken wieder beim Kontrollkästchen "alle" entferne, dass dann die Haken bei den anderen Kästchen ebenfalls entfernt werden. Ich hab es selbst schon versucht mit Else IF den Code fortzuführen aber irgendwie, kam ich zu keinem sinnvollen Ergebnis.
Ich hätte auch noch eine weitere Frage an dich. Den Produktvergleich, den ich hier durchführen möchte, umfasst einige Funktionen die das Programm etwas umfangreicher gestalten. Da meine VBA Kenntnisse jedoch nicht all zu gut sind, schau ich momentan halt, wie ich Schritt für Schritt die einzelnen Funktionen umsetzen kann. Ist das die richtige Herangehensweise oder dreh ich mir da beim Programmieren irgendwann selbst einen Strick daraus, weil ich nicht von Anfang an, gewisse Sachen berücksichtigt habe. Ich habe zwar die ganzen Einführungstutorial zu VBA angeschaut und mich auch schon etwas in die Literatur eingelesen, dennoch fällt es mir immer noch schwer für die einzelnen Funktionen selbst einen Code zu schreiben, sodass ich eigtl. immer nach einem passenden Code im Internet schaue und den versuch umzuschreiben, sodass er für mich passt.
Gruß
Markus

Hi Markus,
zu Frage 1:

Private Sub CheckBox26_Click()
Dim bytZaehler As Byte
For bytZaehler = 1 To 22
Me.Controls("CheckBox" & bytZaehler) = CheckBox26
Next bytZaehler
End Sub

Hiermit wird jede CheckBox auf dieselbe Einstellung gesetzt wie die CheckBox26-
Zu Frage 2: deine Vorgehensweise ist schon völlig korrekt. Du hast dir 1. klar gemacht, was du erreichen willst und hast 2. bereits die Methode ausgewählt (UserForm). Nun gilt es "nur noch", das UserForm sozusagen "mit Leben zu erfüllen" - dabei ist ein schrittweises Herangehen an die einzelnen Funktionalitäten immer sinnvoll.
Sicher ist es so, dass man im Laufe des Voranschreitens merkt, dass es noch Verbesserungen gibt und man so einiges am Code ändern kann/muss - aber das ist normal. ;-)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formular mit Kontrollkästchen

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