CheckBox abprüfen

Forumthread: CheckBox abprüfen
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: CheckBox abprüfen

CheckBox abprüfen

14.11.2019 11:07:33

Hallo,
ich habe folgendes Problem:
Ich habe ein ausgefülltes Formular (Exceltabelle) in das ActiveX-Checkboxen (True und False) eingetragen sind.
Diese Eintragungen möchte ich auswerten, finde aber keine Möglichkeit die Checkboxen abzufragen. Entweder erhalte ich Fehlermeldungen oder unzutreffende Werte in der Regel "Nein". Das liegt vermutlich daran, dass in diesem Fall die Bezeichnung "CheckBox1" als Variable betrachtet wird.
Wie kann ich die Werte der CheckBox abfragen? Das Formular ist aktives Arbeitsblatt.
Kann ich über andere Arbeitsmappen oder -blätter zugreifen.
Im Voraus schon mal Danke.
Grüße
WB

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CheckBox abprüfen

14.11.2019 11:12:11

Nepumuk
AW: CheckBox abprüfen

14.11.2019 11:30:34

WB
AW: CheckBox abprüfen

14.11.2019 11:13:46

Beverly
AW: CheckBox abprüfen

14.11.2019 11:36:00

WB
AW: CheckBox abprüfen

14.11.2019 11:42:14

WB
definierte CheckBox abprüfen

14.11.2019 11:49:30

Beverly
AW: definierte CheckBox abprüfen

14.11.2019 11:58:42

WB

AW: CheckBox abprüfen

14.11.2019 11:12:11

Nepumuk

Hallo,
zeig mal deinen Code.
Gruß
Nepumuk

AW: CheckBox abprüfen

14.11.2019 11:30:34

hier ist der Code (ohne die anderen Zeilen
https://www.herber.de/bbs/user/133206.txt

AW: CheckBox abprüfen

14.11.2019 11:13:46

Beverly

Hi,
z.B. so:

Sub BoxenPruefen()
Dim chkBox As OLEObject
For Each chkBox In ActiveSheet.OLEObjects
If chkBox.progID = "Forms.CheckBox.1" Then MsgBox chkBox.Object.Value
Next chkBox
End Sub

AW: CheckBox abprüfen

14.11.2019 11:36:00

Hallo
vielen Dank für den Code funktioniert prima. Genauso wie ich es mir vorgestellt habe.
Danke!!!!!
Wilhelm

AW: CheckBox abprüfen

14.11.2019 11:42:14

Hallo Karin,
wie müsste ich den Code modifizieren, wenn ich gezielt z.B. CheckBox3 abfragen wollte? Habe es gerade in einem anderen Projekt probiert.
Wenn es Dir nicht zuviel Mühe macht, wäre ich für die Modifikation dankbar.
Wilhelm

definierte CheckBox abprüfen

14.11.2019 11:49:30

Beverly

Hi Wilhelm,
wenn es nur eine einzige bestimmte CheckBox sein soll, dann wird keine Schleife benötigt und es reicht diese Zeile:

MsgBox ActiveSheet.OLEObjects("CheckBox3").Object.Value

AW: definierte CheckBox abprüfen

14.11.2019 11:58:42

Hallo Karin,
vielen Dank nochmal. Bisher habe ich immer nur mit Makros bei der Eingabe und in Userforms gearbeitet.
Ich bedanke mich und wünsche einen schönen Tag.
Wilhelm