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

Userform-wie Checkbox benutzen?

Forumthread: Userform-wie Checkbox benutzen?

Userform-wie Checkbox benutzen?
18.01.2017 12:19:44
Peter
Liebe Experten,
ich bitte Euch m Hilfe.
Heute habe ich meine erste Userform namens "Auswahl" erstellt.
Wenn die Checkbox aktiviert wird, dann soll im Modul eine Abfrage erfolgen, z.B.
If Checkbox1 aktiv then
end if
Wie lautet die VBA Synatx dazu?
Für Eure Hilfe bedanke ich mich voraus.
LG,Peter
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ohne aktiv.....owT
18.01.2017 12:50:46
Mullit
AW: Userform-wie Checkbox benutzen?
18.01.2017 14:50:18
Frank
Hallo Peter!
If CheckBox1 = True Then
.....
End If
Konnte ich helfen?
Gruß Frank H.
If Checkbox1 Then - genügt doch-oder? oT
18.01.2017 15:11:13
Helmut
Anzeige
AW: If Checkbox1 Then - genügt doch-oder? oT
18.01.2017 15:17:37
Daniel
Sicherlich genügt es, aber nur wenn man die Hintergründe kennt, welche du dann dazu erklären müsstest.
machst du das?
Gruß Daniel
..versteh nicht, was Du meinst...
18.01.2017 15:34:05
Helmut
Hallo,
meine Antwort bezog sich auf die True Abfrage ob die notwendig ist.
If Checkbox1 Then
.. mach was...
End If
oder muss man
If Checkbox1=True Then
..mach was..
End If
..schreiben?
Gruß Helmut
Anzeige
AW: ..versteh nicht, was Du meinst...
18.01.2017 16:32:08
Peter
Hallo Zusammen,
mein Code sieht wie folgt aus. Leider erhalte ich die Fehlermeldung Fehler beim Kompilieren. Methode oder Datenobjekt nicht gefunden 

If Auswahl.CheckBox1_Q1 = True Then
ADatumQ1 = CDate("01.01." & aktJahr)
EDatumQ1 = CDate("31.03." & aktJahr)
End If
Wo liegt mein Fehler. Das Formular heißt "Auswahl"
LG, Peter
Anzeige
AW: ..versteh nicht, was Du meinst...
18.01.2017 16:54:06
Peter
Hallo Zusammen,
vielen Dank für Eure hilfreichen Antworten. Fehler gefunden: habe den Namen der Checkboxen falsch geschrieben.
Die Abfrage sieht jetzt so aus 

If Auswahl.CheckBox1_Q1 = True Then
ADatumQ = CDate("01.01." & aktJahr)
EDatumQ = CDate("31.03." & aktJahr)
End If
If Auswahl.CheckBox2_Q2 = True Then
ADatumQ = CDate("01.04." & aktJahr)
EDatumQ = CDate("30.06." & aktJahr)
End If
If Auswahl.CheckBox3_Q3 = True Then
ADatumQ = CDate("01.07." & aktJahr)
EDatumQ = CDate("30.09." & aktJahr)
End If
If Auswahl.CheckBox4_Q4 = True Then
ADatumQ = CDate("01.10." & aktJahr)
EDatumQ = CDate("31.12." & aktJahr)
End If
LG, Peter
Anzeige
AW: ..versteh nicht, was Du meinst...
19.01.2017 16:07:12
Daniel
Hi
vollständig müsste es lauten:
If Checkbox1.Value = True Then
das ".Value" darf man weglassen, weil .Value die Standard-Eigenschaft in VBA ist und automatisch immer .Value eingesetzt wird, wenn du nur das Objekt(Checkbox1) ohne Eigenschaft angibst, aber ein Eigenschaftswert benötigt wird.
das " = True" kann man weglassen, weil der .Value-Wert einer Checkbox ja schon ein Boolscher Wert (True/False) ist daher dieser nicht erst über den Vergleich mit "=" erzeugt werden muss.
Daher reicht auch If Checkbox1 Then
wobei die erste Variante besser verständlich ist, wenn man die genannten Hintergründe nicht kennt.
Gruß Daniel
Anzeige
OK, Danke :-) oT
20.01.2017 09:05:57
Helmut
;

Forumthreads zu verwandten Themen

Checkbox Value auslesen
Fatza

Hallo an alle,
ich habe ein kleines Problem. In meinem Excel-Formular habe ich 4 Checkboxen. Wenn nur eine von diesen aktiviert ist, soll die Druckfunktion frei geschaltet werden, wenn nicht soll eine Messagebox kommen, mit dem Hinweis das eine Checkbox ausgewählt werden muss.
Wer kann...
09.10.2008 09:52:07
Thread-ID: 1015248
8 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
VBA: Textbox.Value mit -1 multiplizieren => Fehler
Mathias

Hallo zusammen!
Bin neu hier und habe vieles aus anderen Beiträgen abkupfern können. Im Moment drückt die Zeit, so dass ich keinen echten systematischen Einstieg gewählt habe sondern eher Codes aus div. Foren zusammenkopiert habe und per learning by doing das meiste hinbekommen habe. Hat bi...
19.08.2009 12:17:55
Thread-ID: 1097053
7 Beiträge
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
Anzeige
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
If CheckBox5.Value = Checked Then
Raphael

Hallo zusammen,
ich habe das Problem das ich bei der Betätigung meiner CheckBox5 die Fehlermeldung "Object required" erhalte.
Ich möchte hinter diese CheckBox eine If Formel bauen, das bedeutet wenn sie checked ist, soll etwas gemacht werden, und wenn sie uncheckt ist was anderes,
D...
10.03.2010 15:19:30
Thread-ID: 1144893
7 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
If Rows.Hidden = True Then End
Karsten

Hallo,
Eine Frage:
Der folgende Code besagt doch, wenn Zeilen versteckt (ausgeblendet) sind, dann gehe zu End. Warum läuft er in beiden Fällen bei mir weiter? Oder wie wird er richtig geschrieben?
If Rows.Hidden = True Then End
Danke für eure Hilfe.
Gruß
Karsten
20.11.2010 16:32:04
Thread-ID: 1187947
12 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
Anzeige
Anzeige

Infobox / Tutorial

Userform und Checkboxen in VBA richtig nutzen

Schritt-für-Schritt-Anleitung

  1. Erstelle eine Userform: Öffne den VBA-Editor (Alt + F11), füge eine neue Userform hinzu und nenne sie z.B. "Auswahl".

  2. Füge Checkboxen hinzu: Platziere mehrere Checkboxen auf der Userform. Benenne diese beispielsweise CheckBox1_Q1, CheckBox2_Q2, etc.

  3. Schreibe den VBA-Code: Füge im Code-Bereich der Userform den folgenden Code hinzu, um auf die Checkboxen zuzugreifen:

    Private Sub CommandButton1_Click()
   If CheckBox1_Q1.Value = True Then
       ' Deine Logik hier
   End If

   If CheckBox2_Q2.Value = True Then
       ' Deine Logik hier
   End If
End Sub

  4. Teste die Userform: Starte die Userform und teste, ob die Checkboxen wie gewünscht funktionieren.

Häufige Fehler und Lösungen

  • Fehlermeldung: Methode oder Datenobjekt nicht gefunden: Überprüfe den Namen der Checkboxen in deinem Code. Achte darauf, dass sie genau mit den Namen übereinstimmen, die in der Userform verwendet werden.

  • Abfrage funktioniert nicht: Stelle sicher, dass du .Value für die Abfrage verwendest, wenn du auf den Status der Checkbox zugreifst. Du kannst auch einfach If CheckBox1_Q1 Then verwenden, da .Value die Standard-Eigenschaft ist.

Alternative Methoden

  • For Each Schleife: Wenn du mehrere Checkboxen in einer Userform hast, kannst du auch eine Schleife verwenden, um alle Checkboxen zu überprüfen:

    Dim ctrl As Control
For Each ctrl In Me.Controls
   If TypeName(ctrl) = "CheckBox" Then
       If ctrl.Value = True Then
           ' Deine Logik hier
       End If
   End If
Next ctrl

  • Verwendung von OptionButtons: Wenn du nur eine Auswahl ermöglichen möchtest, kannst du auch OptionButtons anstelle von Checkboxes verwenden.

Praktische Beispiele

  • Datum festlegen: Wenn eine Checkbox aktiviert wird, kannst du das folgende Beispiel verwenden, um ein Datum zu setzen:

    If CheckBox1_Q1.Value = True Then
   ADatumQ1 = CDate("01.01." & aktJahr)
   EDatumQ1 = CDate("31.03." & aktJahr)
End If

  • Zahlungen überprüfen: Du kannst Checkboxen nutzen, um verschiedene Zahlungsoptionen auszuwählen:

    If CheckBox1.Value Then
   ' Zahlung über Kreditkarte
ElseIf CheckBox2.Value Then
   ' Zahlung über PayPal
End If

Tipps für Profis

  • Benennungskonventionen: Achte auf konsistente und klare Namen für deine Checkboxen, um Verwirrung zu vermeiden.
  • Code-Dokumentation: Kommentiere deinen Code, damit du dir später leichter tun wirst, die Logik nachzuvollziehen.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Probleme beim Zugriff auf Checkboxen zu lösen.

FAQ: Häufige Fragen

1. Muss ich .Value immer verwenden?
Nein, da .Value die Standard-Eigenschaft ist, kannst du auch einfach If CheckBox1 Then schreiben.

2. Was ist der Unterschied zwischen Checkboxen und OptionButtons?
Checkboxen erlauben mehrere Auswahlen, während OptionButtons nur eine Auswahl aus einer Gruppe zulassen.

3. Wie kann ich den Status einer Checkbox abfragen?
Du kannst den Status einer Checkbox mit If CheckBox1.Value = True Then oder einfach If CheckBox1 Then abfragen.

4. Wie kann ich alle Checkboxen zurücksetzen?
Du kannst eine Schleife verwenden, um alle Checkboxen in der Userform zurückzusetzen:

Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then
        ctrl.Value = False
    End If
Next ctrl

Beliebteste Forumthreads (12 Monate)

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