Office: Kontrollkästchen von der Tabelle ins Modul VBA .........

Hallo zusammen,
ich verfolge seit einigen Tagen die Problematik mit der Abfrage von Kontrollkästchen die in einer Excel Tabelle erstellt werden.
Mittlerweile weiß ich wie man diese in VBA in der betreffenden Tabelle abfragen kann, doch mein Problem liegt darin diese Abfrage in einem Modul von VBA weiter zu verarbeiten.
Irgend ein Befehl kann doch in der entsprechenden Excel-Tabelle den "Checkbox" Zustand (true oder false) "Veröffentlichen".
Also für die anderen Module oder Klassen bereitstellen. In der Tabelle ist die Abfrage kein Problem, aber diesen Wert im Modul zu erhalten und den momentanen Zustand dort zu erfassen. Dient dann zur Integration in das vorhanden Programm

Gruß und bitte um Hilfe, danke schon mal

:)

 

Hallo ???

so?

Sub checkCheckBox()
'Für Active-x Steuerelement - Tabellenname und Checkboxname anpassen
MsgBox Sheets("Tabelle1").CheckBox1

'Für Formularsteuerelement - Tabellenname und Kontrollkästchenname anpassen
MsgBox Sheets("Tabelle1").Shapes("Kontrollkästchen 1").DrawingObject.Value = 1
End Sub

Gruß Sepp

 

Hallo Sepp,

danke für die Antwort, bringt aber beim Einfügen ins Modul immer den Syntaxfehler.
Dazu habe ich 2 Bilder angefügt, hoffentlich nicht zu stark komprimiert. Das eine Bild stellt das Programm im Bereich der Tabelle, dies funktioniert. Das andere Bild ist das gleiche Programm im "Modul". Hier wird immer der Fehler angezeigt.

 

Hallo,

Hintergrund dazu ist:
Ich möchte mehrere Kontrollkästchen abfragen. Die Abfrage wird durch einen Klick auf den CommandButton ausgelöst. Das soll dann aus mehreren Excel Blättern viele Funktionen starten, ausgelöst durch den CommandButton und die Sortierung vorher mit den Kontrollkästchen definiert.
Das Programm in der Tabelle ist nur ein Funktionstest um die Kontrollkästchen zu testen. Das funktioniert auch so, eben nur wenn das Programm in der Tabelle geschrieben ist.

Gruß

 

Hallo ???

im Kommentar zu meinem Code schrieb ich ja "Für Active-X Steuerelemente" !

Ausserdem ist Select zu 99% überflüssig.

Sub test()

With Sheets("Tabelle1")
If .CheckBox1 Then
.Range("B23").Interior.ColorIndex = 3
End If
End With

End Sub

Gruß Sepp

 

Hallo Sepp,

ich bin der Meinung: "Du bist Spitze"

vielen Dank für Deine Hilfe

Warum in die Ferne schweifen, wenn das "Gute" liegt soooooo nahe