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

Kontrollkästchen Abfrage ohne Zellverknüpfung !

Forumthread: Kontrollkästchen Abfrage ohne Zellverknüpfung !

Kontrollkästchen Abfrage ohne Zellverknüpfung !
09.01.2003 15:32:54
PeterV
Hallo !
Ich möchte gerne über Excel oder VBA ein Kontrollkästchen dahingehend abfragen, ob es angehakt ist oder nicht. Das Problem bei der Sache ist, dass ich dies erreichen möchte indem ich direkt das Kontrollkästchen abfrage und keine Zellverknüpfung. D.h. die Zellverknüpfung soll offen bleiben. Geht das ? Mein Ansatz für Excel lautet:

=Wenn(Checkbox1=True;"Häkchen gesetzt";"Häkchen nicht gesetzt").

Leider funktioniert das so nicht !

Weiß jemand Rat ?

Danke

Peter

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kontrollkästchen Abfrage ohne Zellverknüpfung !
09.01.2003 15:39:08
L.Vira
Tabelle oder userform?
Re: Kontrollkästchen Abfrage ohne Zellverknüpfung !
09.01.2003 15:40:21
Peter
Oh, sorry.
Tabelle

Re: Kontrollkästchen Abfrage ohne Zellverknüpfung !
09.01.2003 15:47:37
L.Vira
Sub Frage()
If ActiveSheet.CheckBox1 = True Then
MsgBox "Checkbox Häkchen gesetzt!"
Else
MsgBox "Checkbox Häkchen nicht gesetzt!"
End If
End Sub
Anzeige
L.Vira: Noch eine Frage...
09.01.2003 16:02:17
Peter
Hast Du auch eine Lösung für Kontrollkästchen, die mit Hilfe der Symbolleiste "Formular" erstellt wurden ???

Danke

Peter

Re: L.Vira: Noch eine Frage...
09.01.2003 16:13:59
L.Vira
Du solltest diese controls nur verwenden, wenn du sie nicht über VBA ansprechen musst, das ist nämlich kaum möglich. Das Beispiel funktioniert auch nur, wenn das Blatt nicht geschützt ist.
Sub machwas()
ActiveSheet.Shapes("Check Box 1").Select
If Selection.Value = xlOn Then
MsgBox "Häkchen gesetzt!"
Else
MsgBox "Häkchen nicht gesetzt!"
End If
End Sub
Anzeige
Re: L.Vira: Noch eine Frage...
09.01.2003 16:24:46
Peter
Vielen Dank zunächst einmal !
Mit den Steuerelementen aus der Steuerelement-Toolbox hab ich aber ein Problem. Ich bekomme es nicht hin dort die Schriftgröße zu ändern. Das ist ziemlich dämlich, wenn man mit der Zoom-Funktion arbeiten möchte. Gibt es dafür auch eine Lösung ?

Danke

Peter

Re: L.Vira: Noch eine Frage...
09.01.2003 21:07:39
L.Vira
Meinst du per VBA oder interaktiv?
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Abfragen von Kontrollkästchen in Excel ohne Zellverknüpfung


Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und wechsle auf das Blatt, auf dem sich das Kontrollkästchen befindet.

  2. Aktiviere die Entwicklertools in Excel, falls diese noch nicht sichtbar sind. Gehe dazu auf "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Häkchen bei "Entwicklertools".

  3. Füge ein Kontrollkästchen hinzu: Gehe zu "Entwicklertools" > "Einfügen" und wähle ein Kontrollkästchen aus der Formularsteuerelemente aus.

  4. Erstelle ein VBA-Makro: Drücke ALT + F11, um den VBA-Editor zu öffnen. Füge ein neues Modul hinzu und schreibe folgenden Code:

    Sub CheckboxAbfragen()
       If ActiveSheet.CheckBox1.Value = True Then
           MsgBox "Häkchen gesetzt!"
       Else
           MsgBox "Häkchen nicht gesetzt!"
       End If
    End Sub
  5. Schließe den VBA-Editor und führe das Makro aus, um das Ergebnis zu sehen.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"
    Lösung: Stelle sicher, dass das Kontrollkästchen den richtigen Namen hat. Das Standardformat ist "CheckBox1", "CheckBox2" usw. Überprüfe den Namen im VBA-Editor.

  • Fehler: "Makro kann nicht ausgeführt werden"
    Lösung: Vergewissere dich, dass dein Arbeitsblatt nicht geschützt ist. Entferne den Schutz, bevor du das Makro ausführst.


Alternative Methoden

Wenn du die Standardformularsteuerelemente nicht verwenden möchtest, kannst du auch ActiveX-Steuerelemente nutzen:

  1. Füge ein ActiveX-Kontrollkästchen hinzu: Gehe zu "Entwicklertools" > "Einfügen" und wähle ein Kontrollkästchen aus den ActiveX-Steuerelementen aus.
  2. Verwende diesen VBA-Code:

    Sub ActiveXCheckboxAbfragen()
       If ActiveSheet.CheckBox1.Value = True Then
           MsgBox "Häkchen gesetzt!"
       Else
           MsgBox "Häkchen nicht gesetzt!"
       End If
    End Sub

Praktische Beispiele

Hier sind zwei Beispiele, wie du verschiedene Kontrollkästchen in einer Tabelle abfragen kannst:

  1. Abfragen eines Kontrollkästchens mit Zellverknüpfung:

    Sub CheckboxMitZellverknuepfung()
       If Range("A1").Value = True Then
           MsgBox "Häkchen in Zelle A1 gesetzt!"
       Else
           MsgBox "Häkchen in Zelle A1 nicht gesetzt!"
       End If
    End Sub
  2. Abfragen mehrerer Kontrollkästchen:

    Sub MehrereCheckboxen()
       Dim i As Integer
       For i = 1 To 3
           If ActiveSheet.CheckBoxes("Check Box " & i).Value = 1 Then
               MsgBox "Check Box " & i & " ist gesetzt!"
           End If
       Next i
    End Sub

Tipps für Profis

  • Verwende benannte Bereiche, um die Abfrage von Kontrollkästchen zu vereinfachen.
  • Nutze die Fehlerbehandlung in VBA, um unerwartete Fehler abzufangen, z. B. durch die Verwendung von On Error Resume Next.
  • Experimentiere mit Formeln in Excel, um den Status der Kontrollkästchen anzuzeigen, z. B. mit =WENN(CheckBox1=WAHR; "Häkchen gesetzt"; "Häkchen nicht gesetzt").

FAQ: Häufige Fragen

1. Kann ich Kontrollkästchen auch in Excel-Formeln verwenden?
Ja, du kannst den Status von Kontrollkästchen in Excel-Formeln abfragen, allerdings nur, wenn sie mit einer Zelle verknüpft sind.

2. Wie kann ich die Schriftgröße eines Kontrollkästchens ändern?
Die Schriftgröße eines Kontrollkästchens aus der Symbolleiste "Formular" kann in den Eigenschaften des Kontrollkästchens angepasst werden. Bei ActiveX-Kontrollkästchen kann die Schriftart über die Eigenschaften im VBA-Editor geändert werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige