Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Checkbox Wert zuweisen

Checkbox Wert zuweisen
03.06.2016 11:20:59
Marco
Hallo alle ich habe ein ganz kleines Problem. In meinem UserForm befindet sich eine Checkbox. Wenn ich in dieser einen Hacken setze und auf den Button speichern klicke möchte ich das in meiner Datenbank der Wert Ja zugewiesen wird. Wenn ich keinen Hacken setze soll der Wert Nein in der Datenbank stehen. Wie geht denn so was? Ich kann bis jetzt nur meinen TextBoxen Zellen in der Datenbank zuweisen.
Vg Marco

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox Wert zuweisen
03.06.2016 11:28:38
Marco
Ich bin es nochmal. Und zwar habe ich jetzt das geschrieben damit das Kontrollkästchen in das Tabellenblatt was schreibt.
.Cells(loLetzte, 3).Value = CheckBox1.Value
Das funktioniert auch aber jetzt steht anstatt ja immer Wahr da.
Vg. Marco

AW: Checkbox Wert zuweisen
03.06.2016 11:33:25
Rudi
Hallo,
.Cells(loLetzte, 3).Value = Iif(CheckBox1,"Ja","Nein")
Es ist ein Haken, kein Hacken.
Gruß
Rudi

Anzeige
AW: Checkbox Wert zuweisen
03.06.2016 12:43:50
Marco
Upsi tut mir leid du hast recht Haken. Und danke für deine Hilfe =) dir einen schönen Tag noch
Vg Marco
;
Anzeige
Anzeige

Infobox / Tutorial

Checkbox Wert zuweisen in Excel UserForm


Schritt-für-Schritt-Anleitung

Um in einem Excel UserForm den Wert einer Checkbox korrekt zuweisen zu können, folge diesen Schritten:

  1. Öffne dein Excel VBA-Editor mit ALT + F11.

  2. Erstelle ein UserForm und füge eine Checkbox (CheckBox1) und einen Button (Button1) hinzu.

  3. Klicke mit der rechten Maustaste auf den Button und wähle "Code anzeigen".

  4. Füge den folgenden Code in das Button-Klick-Ereignis ein:

    Private Sub Button1_Click()
        Dim loLetzte As Long
        loLetzte = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row + 1
        Sheets("Datenbank").Cells(loLetzte, 3).Value = IIf(CheckBox1.Value, "Ja", "Nein")
    End Sub
  5. Schließe den VBA-Editor und teste dein UserForm. Wenn du die Checkbox aktivierst und den Button klickst, wird "Ja" in die Datenbank geschrieben, andernfalls "Nein".


Häufige Fehler und Lösungen

  • Problem: Anstatt "Ja" oder "Nein" wird "Wahr" oder "Falsch" angezeigt.

    • Lösung: Stelle sicher, dass du IIf(CheckBox1.Value, "Ja", "Nein") verwendest, um die Werte korrekt zuzuweisen.
  • Problem: Der Wert wird nicht in die richtige Zelle geschrieben.

    • Lösung: Überprüfe, ob die Variable loLetzte richtig definiert ist und auf die nächste freie Zeile zeigt.

Alternative Methoden

Eine alternative Methode zum Zuweisen des Checkbox-Wertes wäre die Verwendung von Select Case. Das kann so aussehen:

Private Sub Button1_Click()
    Dim loLetzte As Long
    loLetzte = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Select Case CheckBox1.Value
        Case True
            Sheets("Datenbank").Cells(loLetzte, 3).Value = "Ja"
        Case False
            Sheets("Datenbank").Cells(loLetzte, 3).Value = "Nein"
    End Select
End Sub

Praktische Beispiele

Nehmen wir an, du möchtest den Status eines Auftrags in deiner Datenbank festhalten. Wenn du die Checkbox "Auftrag bearbeitet" aktivierst, soll "Ja" in die Datenbank geschrieben werden:

  1. Erstelle ein UserForm mit der Checkbox CheckBoxAuftrag und einem Button.
  2. Verwende den bereits beschriebenen Code für den Button-Klick.

So kannst du schnell und einfach den Status deiner Aufträge festhalten.


Tipps für Profis

  • Nutze Option Explicit am Anfang deines Codes, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft bei der Fehlersuche.
  • Verwende benannte Bereiche in deiner Datenbank, um die Wartung und Lesbarkeit des Codes zu verbessern.
  • Halte deinen Code modular, indem du häufig genutzte Funktionen in separate Sub-Prozeduren auslagerst.

FAQ: Häufige Fragen

1. Wie kann ich die Checkbox standardmäßig aktivieren?
Du kannst die Checkbox im UserForm-Load-Ereignis aktivieren, indem du CheckBox1.Value = True setzt.

2. Was ist, wenn ich mehrere Checkboxen habe?
Du kannst den gleichen Ansatz für jede Checkbox verwenden, indem du verschiedene Zellen in der Datenbank ansprichst, je nachdem, welche Checkbox aktiviert ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige