Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Name von aktiver Checkbox auslesen

Forumthread: VBA: Name von aktiver Checkbox auslesen

VBA: Name von aktiver Checkbox auslesen
27.02.2017 18:45:39
aktiver
Hallo,
ich habe eine Userform mit diversen Checkboxen und möchte gerne bei allen den gleichen VBA-Code verwenden, nur dass sich eben immer der Name der Checkbox ändert.
Gibt es eine Möglichkeit, den Namen dynamisch auszulesen, damit man ihn nicht hardcoden muss (wie hier "Check1All") ? Ähnlich wie das Me bei der Userform oder This etc. in anderen Sprachen ?
Mein Code: 
Private Sub Check1All_Click()
Dim varCategory As String
Dim varValue As String
With Check1All ' statt Check1All sollte der Name der aktuellen Checkbox verwendet werden
varCategory = Left(.Name, Len(.Name) - 3)
varValue = .Value
End With
Call CheckAll(varCategory, varValue)
End Sub
Vielen Dank Euch im Voraus,
Tim
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 18:55:50
aktiver
Hallo,
am einfachsten mit der ActiveControl-Eigenschaft: 
Private Sub Check1All_Click()
Dim varCategory As String
Dim varValue As String
With ActiveControl  ' statt Check1All sollte der Name  _
der aktuellen Checkbox verwendet werden
varCategory = Left(.Name, Len(.Name) - 3)
varValue = .Value
End With
Call CheckAll(varCategory, varValue)
End Sub

Gruß, Mullit
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 19:01:33
aktiver
Hi Mullit,
vielen Dank.
ActiveControl habe ich schon zuvor probiert, das kennt aber offenbar die .Value Eigenschaft nicht.
VG,
Tim
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 19:11:11
aktiver
Hallo,
na det wüst ik aber, das geht problemlos: 
Option Explicit
Private Sub CheckBox1_Click()
MsgBox ActiveControl.Value
End Sub

Gruß, Mullit
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 19:41:26
aktiver
Hi Mullit,
Bei mir geht es leider nicht.
Wenn ich Check1All mit ActiveControl ersetze, springt der Debugger auf die Zeile mit dem Value und ich sehe Value auch nicht in dem Popup-Fenster mit den Optionen, das erscheint, wenn man anfängt, den Code zu schreiben.
VG,
Tim
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 19:52:18
aktiver
Hallo,
dann sag mal, wie genau die Fehlermeldung lautet...
Gruß, Mullit
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:04:11
aktiver
Es gibt keine Fehlermeldung - der Debugger springt auf die Zeile mit dem Value.
VG,
Tim
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:10:35
aktiver
Hallo Tim,
warum machst Du nicht eine kleines Beispiel uns stellst es hier bereit.
Alles andere ist doch nur Kaffesatz-Leserei!
Gruß von Luschi
aus klein-Paris
PS: bei mir klappt das mit 'ActiveControl.Value' usw.!
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:09:06
aktiver
...Run-time error '438':
Object doesn't support this property or method...
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:29:38
aktiver
Hallo Tim,
aha doch ne Meldung, ist allerdings etwas eigenartig, ich hab kein xl2013, könnte sein daß Du da noch so referenzieren mußt: 
Option Explicit
Private Sub CheckBox1_Click()
MsgBox ActiveControl.Object.Value
End Sub

Aber da's bei Luschi auch lief und wie er schon schrieb, lad mal ne Bsp.-mappe hoch...
Gruß, Mullit
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:45:36
aktiver
Hallo,
ja böse Falle, ich konnt jetzt Deine Fehlermeldung reproduzieren, wahrscheinlich befindet sich bei Dir die Box in einem Frame, dann ist das oberste ActiveControl das Frame-Objekt, daher die Meldung, Du müsstest also schreiben: 
Option Explicit
Private Sub CheckBox1_Click()
MsgBox ActiveControl.ActiveControl.Value
End Sub

Gruß, Mullit
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:48:51
aktiver
Hallo Mullit,
Super, genau das war das Problem - vielen Dank dafür, da wär ich nie drauf gekommen.
VG und einen schönen Abend,
Tim
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 20:52:37
aktiver
Hallo Tim,
ich hoffe, daß Du daraus lernst, daß ein klitzekleines Beispiel mehr bring als unnötiges Geshwafel.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: VBA: Name von aktiver Checkbox auslesen
27.02.2017 21:01:01
aktiver
Sinnloses Geschwafel sind wohl eher deine arroganten Belehrungen.
Hast Du nichts besseres zu tun ?
Schade, dass es Menschen wie dich gibt.
AW: VBA: Name von aktiver Checkbox auslesen
01.03.2017 08:13:42
aktiver
Hallo Tim,
wenn Du zu folgenden Maßnahmen keine Lust hast
- eigene Weiterbildung
- Bnutzung von Fachbücher
- Google-Suche anwerfen
- Erstellung von Demo-Bbeispielen zur Unterstützung der Lösungsfindung
dann mach weiter so, denn es kostete Dir ja nichts und viele fleißige Helfer arbeiten für den Trash.
Luschi aus klein-Paris
Anzeige
;

Forumthreads zu verwandten Themen

VBA Klasse für alle CheckBoxen
enrico

Sehr geehrte Forum-Experten,
ich beschäftige mich seit einer Woche mit VBA.
Ich habe nun folgende Frage:
Wie kann ich für alle Checkboxen in einem Sheet den gleichen Code benutzen...
Am Beispiel:
Public Sub CheckBox_1_1_1_0_0_0_Click() If CheckBox_1_1_1_0_0_0.Value = True Th...
13.12.2009 17:35:45
Thread-ID: 1123606
6 Beiträge
VBA: diagramm nach Checkbox-Auswahl erstellen
Jonathan

Hallo liebe Experten,
ich stehe vor folgenden Problem:
In einem Excel-Sheet werden ca. 100 Arbeitsplätze verwaltet.
Jeder Arbeitsplatz hat in diesem Sheet eine Tabelle mit mit 8 Zeilen und 18 Spalten. Die Tabellen sind untereinander angeordnet.
Jede Tabelle (bzw. jeder Arbeitsp...
21.12.2009 15:47:14
Thread-ID: 1125372
4 Beiträge
Word-Vba mit F11 von Checkbox zu Checkbox
Checkbox

Hallo Wissende,
https://www.herber.de/bbs/user/68526.doc
ist an sich unnötig, da ist nur Beipieltext und drei Checkboxen (aus Steuerelementtoolbox) drin.
Mit F11 will ich, so wie wenn das Dokument geschützt ist mit TAB, von Checkbox zu Checkbox hüpfen, sodaß ich mit der Leertaste...
12.03.2010 12:50:36
Thread-ID: 1145366
6 Beiträge
Anzeige
2 Autofilter mit VBA & Checkboxen
Tobi

Hallo xls.-Cracks,
ich habe folgendes Problem: Per Makro & Checkboxen möchte ich eine Liste nach einem bestimmten Kriterium (per Checkbox wählbar) in einer bestimmtem Spalte filtern lassen (z.B. Spalte C - Monat) - mit dem enthaltenen Makro (von Sepp!) funktioniert das auch ganz gut ; j...
10.10.2011 12:23:18
Thread-ID: 1233159
6 Beiträge
VBA Excel Checkbox Klasse definieren
Kie

Hallo Forum,
ich möchte gerne 5000 Checkboxen in eine Excelzelle schreiben (Teil 1) und jede soll dann bei Aktivierung das gleiche Makro ausführen (Teil 2).
Teil 1 habe ich hinbekommen. Das Beispiel für 25 Checkboxen hänge ich unten an.
Bei Teil 2 bin ich ratlos. Da ich nicht jede C...
10.07.2012 09:23:33
Thread-ID: 1270360
9 Beiträge
Anzeige
VBA ausgewählte Tabelle als Pdf via Checkbox
Sino

Hallo Leute,
hoffe ihr könnt mir helfen. Ich würde gerne per Checkbox Tabellen einblenden und die auch per Buttom als PDF speichern. Die Seite mit den Checkboxen soll natürlich nicht gespeichert werden. Feste Tabellen wie Deckblatt und Bemerkung sollen immer gespeichert werden.
VG Sino...
14.11.2014 07:11:36
Thread-ID: 1392286
3 Beiträge
Anzeige
per VBA checkbox in Frame hinzufügen
Pete

Hey Leute,
ich bin dabei eine Userform über VBA automatisch mit Elementen zu befüllen. Dabei setze ich mehrere Frames, wobei ich mit den Angaben Top/Left super klar komme. Wenn ich allerdings eine CheckBox manuell in einen Frame hinzufüge, orientieren sich Top/Left an den Innenmaßen das Fra...
19.02.2015 11:08:10
Thread-ID: 1410363
2 Beiträge
Frage VBA // If Checkboxen Text verketten
Marius
Hallo,
leider verzweifel ich gerade an Excel (eher gesagt VBA). Kurz gesagt - ich bin ein Laie in VBA - insofern brauche ich mal Hilfe vom Profi.
Die Musterdatei ist hier abgelegt:
Die Datei https://www.herber.de/bbs/user/99059.xlsm wurde aus Datenschutzgründen gelöscht Mein Vorhaben:
24.07.2015 18:59:49
Thread-ID: 1438386
4 Beiträge
VBA-CheckBox
Lukas

Ich habe eine Userform erstellt auf der immer eine unterschiedliche Anzahl an CheckBoxen ist. Es gibt einen Button, der alle aktivieren soll. Wie lautet der Code für diesen Button?
Lg Lukas
02.07.2016 20:31:33
Thread-ID: 1502245
7 Beiträge
Anzeige
VBA Druck per Checkbox anfällig
silex1

Hallo,
in der Bsp.-Datei gibt es ein Druckmakro (Ursprung von fcs), was aus den einzelnen Blättern ne pdf macht. Per "Kontrollkästchen" werden die zu druckenden Blätter markiert. Leider ist dies Makro "etwas" anfällig, was sich mir nicht erschliessen will.
Ein Fehler kam in varFilename...
03.11.2016 22:46:37
Thread-ID: 1522995
5 Beiträge
VBA: via Checkbox best. Arbeitsblätter als pdf sp.
Alexander

Hallo zusammen,
ich nutze zum speichern mehrerer Arbeitsblätter in einem pdf folgende Befehlszeile:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "Datenexport.pdf", _
Quality:...
18.02.2018 18:09:05
Thread-ID: 1609684
4 Beiträge
VBA ausführen über Checkbox
Flosch

Hallo Ihr Excel und VBA Cracks

Ich möchte gerne über die Checkbox Auswertung (False oder True) ein Makro ausführen lassen. Das heisst, wenn die Checkbox angeklikt wird, ändert die der Checkbox zugeteilte Zelle ihren Wert, entweder auf True oder False. Wenn sich nun einer dieser Zustände...
19.07.2003 13:41:52
Thread-ID: 282992
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Aktive Checkbox in VBA auslesen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle eine Userform. Füge mehrere Checkboxen hinzu, die du auslesen möchtest.

  2. Füge den folgenden VBA-Code in das Codefenster der Userform ein:

    Private Sub Check1All_Click()
   Dim varCategory As String
   Dim varValue As String
   With ActiveControl ' Hier wird der Name der aktuellen Checkbox verwendet
       varCategory = Left(.Name, Len(.Name) - 3)
       varValue = .Value
   End With
   Call CheckAll(varCategory, varValue)
End Sub

  3. Verwende ActiveControl, um den Namen der aktiven Checkbox auszulesen. Dies ermöglicht es dir, eine dynamische Lösung zu erstellen, ohne den Namen jeder Checkbox hardcodieren zu müssen.

Häufige Fehler und Lösungen

  • Fehler: "Object doesn't support this property or method"

    • Lösung: Stelle sicher, dass du die Checkbox nicht in einem Frame platziert hast. In diesem Fall musst du auf die innere Checkbox zugreifen: 
      MsgBox ActiveControl.ActiveControl.Value

  • Fehler: ActiveControl.Value wird nicht erkannt

    • Lösung: Überprüfe, ob du die richtige Eigenschaft des ActiveControl-Objekts verwendest. Möglicherweise musst du die Referenz zu ActiveControl.Object.Value ändern, wenn du eine andere Version von Excel verwendest.

Alternative Methoden

  • Verwendung von Me.Controls: Du kannst den Namen der Checkbox auch über die Controls-Sammlung der Userform abrufen:

    Dim cb As MSForms.CheckBox
Set cb = Me.Controls("Check1All")
MsgBox cb.Value

  • Loop durch alle Checkboxen: Mit einem Loop kannst du alle Checkboxen auf der Userform durchlaufen:

    Dim ctrl As Control
For Each ctrl In Me.Controls
  If TypeOf ctrl Is MSForms.CheckBox Then
      MsgBox ctrl.Name & ": " & ctrl.Value
  End If
Next ctrl

Praktische Beispiele

  1. Dynamisches Auslesen der Checkbox-Werte:

    Private Sub CheckBox1_Click()
   MsgBox "Checkbox " & ActiveControl.Name & " ist " & ActiveControl.Value
End Sub

  2. Alle Checkboxen auf der Userform auslesen:

    Private Sub CommandButton1_Click()
   Dim ctrl As Control
   Dim checkedBoxes As String
   For Each ctrl In Me.Controls
       If TypeOf ctrl Is MSForms.CheckBox And ctrl.Value = True Then
           checkedBoxes = checkedBoxes & ctrl.Name & vbCrLf
       End If
   Next ctrl
   MsgBox "Ausgewählte Checkboxen:" & vbCrLf & checkedBoxes
End Sub

Tipps für Profis

  • Nutze Option Explicit, um sicherzustellen, dass alle Variablen deklariert werden. Dies hilft, Fehler frühzeitig zu erkennen.
  • Bevor du mit VBA arbeitest, stelle sicher, dass deine Checkboxen richtig benannt sind, um Verwirrung zu vermeiden.
  • Verwende die Debug.Print-Anweisung, um Werte während der Laufzeit zu prüfen, falls du Probleme hast.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Namen der Checkbox in einer MessageBox anzeigen?
Antwort: Du kannst den Namen der Checkbox einfach über ActiveControl.Name abrufen und in einer MessageBox anzeigen.

2. Frage
Was tun, wenn ActiveControl nicht funktioniert?
Antwort: Überprüfe, ob sich die Checkbox in einem Frame befindet. In diesem Fall musst du auf ActiveControl.ActiveControl zugreifen.

3. Frage
Wie kann ich mehrere Checkboxen mit einem einzigen Klick steuern?
Antwort: Du kannst eine Schleife verwenden, um durch alle Checkboxen zu iterieren und deren Werte zu setzen oder auszulesen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige