Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkbox per VBA eine _Click-Prozedur zuweisen

Forumthread: Checkbox per VBA eine _Click-Prozedur zuweisen

Checkbox per VBA eine _Click-Prozedur zuweisen
12.01.2016 19:01:05
Marcus
Hallo an Alle,
ich hätte da mal wieder gerne ein Problem:
Ich erstelle aus einem Eingabe-UserForm heraus beim Speichern der Daten am Ende der gleichen _ Zeile eine Checkbox. Der Name der Checkbox wird dabei festgelegt mit 

oShape.Name = "checkbox_" & i

i ist eine Variable und entspricht der Zeile.
Wie kann ich der Checkbox nun auch gleich mitteilen, dass sie bei checkbox_i_click() eine sub aufrufen soll?
Vielen Dank für Eure Unterstützung!
Gruß Marcus

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.OnAction = "DeineSub" o.T.
12.01.2016 19:03:24
Sepp
Gruß Sepp

AW: .OnAction = "DeineSub" o.T.
12.01.2016 19:51:36
Marcus
Hallo Sepp,
vielen Dank!
Was meinst Du mit o.T.?
Gruß Marcus

Die nachricht ist ohne Text! o.T.
12.01.2016 19:58:39
Sepp
Gruß Sepp

Anzeige
ich hätte da mal wieder gerne ein Problem: ?..
12.01.2016 19:09:33
Helmut
Hallo,
warum willst Du unbedingt ein Problem ?
;-)
:-)
LG
Helmut

AW: ich hätte da mal wieder gerne ein Problem:
12.01.2016 19:42:11
Marcus
Ups, da fehlt noch ein bisschen was... ein Problem gelöst:
Sorry

Viele Checkboxes, viele Probleme
12.01.2016 19:21:46
RPP63
Hi!
Neben dem Speicherplatz kommen die anderen Probleme, wenn Du mal eine Zeile löscht oder einfügst.
Schon mal über eine Alternative nachgedacht?
https://www.herber.de/bbs/user/102742.xlsm
Gruß Ralf

Anzeige
AW: Viele Checkboxes, viele Probleme
12.01.2016 19:49:04
Marcus
Hallo Ralf,
das ist ein guter Ratschlag und die Datei werde ich mir mal abspeichern, aber in meiner Datei werden definitiv keine Zeilen gelöscht werden und im weiteren wird nach erfolgreichem Durchlaufen der Prozedur die Checkbox wieder gelöscht ;-)
Gruß Marcus

AW: Checkbox per VBA eine _Click-Prozedur zuweisen
12.01.2016 20:21:24
Marcus
Hallo nochmal,
eine weitere Frage hätte ich noch:
Wie kann ich der nachfolgenden Sub mitteilen welche Checkbox sie aufgerufen hat?
Danke und Gruß
Marcus

Anzeige
Ich dachte, Du hast nur eine …
12.01.2016 20:31:46
RPP63
… die Du nach der Prozedur wieder löscht? ;-)
Beim Formularsteuerelement folgendes Makro zuweisen: 
Sub WerWarEs()
MsgBox Application.Caller
End Sub
Gruß Ralf

AW: Ich dachte, Du hast nur eine …
12.01.2016 22:45:24
Marcus
Hallo Ralf,
ich erzeuge diese Checkboxen beim Abspeichern von Formulardaten. Der User soll dann die Checkbox auswählen, um den Datensatz in einem weiteren Formular zu vervollständigen. Wenn alle Daten korrekt und vollständig eingegeben sind und gespeichert wurden, wird die Checkbox wieder gelöscht.
Mit dem Aufruf 
MsgBox Application.Caller

bekomme ich den Namen der Checkbox. Sehr gut, danke!
Aber wie kann ich dann auf den Namen zugreifen und weiter verarbeiten?
Wenn ich beim Event "Private Sub UserForm_Initialize()" versuche 
Dim caller As Variant
caller = Application.caller
MsgBox caller

bekomme ich einen Laufzeitfehler 13, Typen unverträglich...
Gruß Marcus

Anzeige
AW: Ich dachte, Du hast nur eine …
12.01.2016 23:08:30
Marcus
Ok, mit 
caller = ActiveSheet.Shapes(Application.caller).TopLeftCell.Row
MsgBox caller

bekomme ich die Zeile, das reicht mir ja schon um weiter zu machen.
Vielen Dank an alle die geholfen haben!
Gruß Marcus
;

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
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
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
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
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
Anzeige
[VBA] UserForm Click-Event für dyn. erz. Button
Nils

Hallo Leute,
ich habe eine Userform dynamisch mit Buttons bestückt. Je nachdem wie groß ein Array ist, werden 1 bis x Buttons erstellt.
Wie kann ich den Click-Event eines solchen Buttons definieren?
19.03.2019 16:47:00
Thread-ID: 1682182
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Checkboxen in Excel mit VBA: Click-Prozeduren zuweisen

Schritt-für-Schritt-Anleitung

  1. Checkbox erstellen: Um eine Checkbox in Excel mit VBA zu erstellen, kannst du den folgenden Code verwenden:

    Dim oShape As Shape
Dim i As Integer
i = 1 ' Beispiel für die Zeile, in der die Checkbox erstellt wird
Set oShape = ActiveSheet.Shapes.AddFormControl(xlCheckBox, 100, 100, 100, 20)
oShape.Name = "checkbox_" & i

  2. Click-Prozedur zuweisen: Um eine Click-Prozedur für die Checkbox zu definieren, kannst du die .OnAction-Eigenschaft nutzen:

    oShape.OnAction = "checkbox_" & i & "_click"

  3. Click-Prozedur implementieren: Definiere die Prozedur, die bei einem Click auf die Checkbox aufgerufen wird:

    Sub checkbox_1_click()
   MsgBox "Checkbox 1 wurde geklickt!"
End Sub

  4. Checkbox löschen: Wenn du die Checkbox nach Verwendung wieder löschen möchtest, kannst du dies mit folgendem Code tun:

    ActiveSheet.Shapes("checkbox_1").Delete

Häufige Fehler und Lösungen

  • Fehler beim Zugriff auf die Checkbox: Wenn du beim Zugriff auf die Checkbox einen Laufzeitfehler erhältst, überprüfe den Namen der Checkbox:

    MsgBox Application.Caller

    Dies zeigt dir den Namen der Checkbox, die das Ereignis ausgelöst hat.

  • Typen unverträglich: Wenn du einen Laufzeitfehler 13 erhältst, stelle sicher, dass du die Variable korrekt deklarierst. Beispielsweise:

    Dim caller As String
caller = Application.Caller

Alternative Methoden

Falls du eine Excel Checkbox Alternative suchst, kannst du auch ActiveX-Steuerelemente verwenden. Diese bieten mehr Anpassungsmöglichkeiten. Hier ist ein Beispiel, wie du eine ActiveX-Checkbox erstellst und ihr eine Prozedur zuweist:

  1. ActiveX-Checkbox hinzufügen: Füge in der Entwicklertools-Registerkarte eine ActiveX-Checkbox hinzu.
  2. Prozedur zuweisen: 
    Private Sub CheckBox1_Click()
   MsgBox "ActiveX Checkbox wurde geklickt!"
End Sub

Praktische Beispiele

Hier sind zwei praktische Beispiele:

  1. Checkbox zur Dateneingabe: Du kannst Checkboxen verwenden, um Benutzereingaben zu bestätigen. Wenn der Benutzer die Checkbox auswählt, wird eine Nachricht angezeigt, dass die Eingabe erfolgreich war.

  2. Checkboxen dynamisch erstellen: Du kannst eine Schleife verwenden, um mehrere Checkboxen zu erstellen:

    Dim j As Integer
For j = 1 To 5
   Set oShape = ActiveSheet.Shapes.AddFormControl(xlCheckBox, 100, 100 + (j * 25), 100, 20)
   oShape.Name = "checkbox_" & j
   oShape.OnAction = "checkbox_" & j & "_click"
Next j

Tipps für Profis

  • Verwende Namenskonventionen: Halte dich an ein konsistentes Namensschema für Checkboxen, um den Überblick zu behalten.
  • Fehlerbehandlung implementieren: Nutze On Error Resume Next, um unerwartete Fehler zu vermeiden, insbesondere beim Zugreifen auf Checkboxen.
  • Testen: Teste regelmäßig deine VBA-Programme, um sicherzustellen, dass alle Click-Prozeduren wie gewünscht funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich alle Checkboxen auf einmal löschen?
Du kannst alle Checkboxen auf dem Arbeitsblatt mit folgendem Code löschen:

Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    If shp.Type = msoFormControl Then
        If shp.FormControlType = xlCheckBox Then
            shp.Delete
        End If
    End If
Next shp

2. Kann ich Checkboxen in einer UserForm verwenden?
Ja, du kannst Checkboxen auch in einer UserForm verwenden. Hierbei kannst du die gleiche Logik wie bei den Form-Steuerelementen anwenden, um Click-Prozeduren zuzuweisen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige