Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
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
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ein Kontrollkästchen durch ein anderes aktivieren

Forumthread: ein Kontrollkästchen durch ein anderes aktivieren

ein Kontrollkästchen durch ein anderes aktivieren
24.09.2007 13:29:00
Michael
Hallo,
wie schon im Betreff genannt möchte ich ein Kontrollkästchen durch ein anders aktivieren (keine CheckBox). Folgendes Makro: 

Private Sub Worksheet_Change1(ByVal Target As Range)
Dim cbHaken As ControlFormat
If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = xlOn Then
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = xlOn
End If
End Sub


leider funzt das nicht so wie gedacht. Es wäre auch schön, wenn duch deaktivierung des 1 die 2 ebenfalls inaktiv wäre.
Ich hoffe Ihr könnt mir Sagen wo mein Denkfehler liegt!
Vielen Dank im Voraus
Micha

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ein Kontrollkästchen durch ein anderes aktivie
24.09.2007 13:34:00
Rudi
Hallo,
setze die beiden einfach gleich:
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = ActiveSheet.Shapes("Check Box 1").ControlFormat.Value
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: ein Kontrollkästchen durch ein anderes aktivie
24.09.2007 13:47:00
Michael
Hallo Rudi,
danke für den Tip, habs jetzt so eingesetzt, leider klappts immer noch nicht so recht.

Private Sub Worksheet_Change()
Dim cbHaken As ControlFormat
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = ActiveSheet.Shapes("Check Box 1"). _
ControlFormat.Value
End Sub


Micha

Anzeige
Die Zellverknüpfung des Steuerelements...
24.09.2007 14:19:00
{Boris}
Hi Micha,
...bzw. eines Formularelements löst bei Änderung kein Change-Ereignis aus.
Grüße Boris

AW: ein Kontrollkästchen durch ein anderes aktivie
24.09.2007 14:20:00
Rudi
Hallo,
der Klick auf das Kontrollkastchen löst kein Worksheet_Change aus.
Weise dem Kontrollkäschen ein Makro zu.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Wenn es wirklich Kontrollkästchen...
24.09.2007 14:25:00
{Boris}
Hi Micha,
...und keine Checkboxes aus der Steuerelemente-Toolbox sind, dann kannst Du die Dinger auch direkt mittels der Checkboxes-Auflistung ansprechen:

Sub machs()
With Tabelle1
.CheckBoxes(2).Value = .CheckBoxes(1).Value
End With
End Sub


Grüße Boris

Anzeige
AW: Irgendwie...
25.09.2007 08:31:35
Michael
Hallo Rudi, hallo Boris
stehe ich auf dem Schlauch :o( - ich bekomme das einfach nicht hin...
hier mal eine Beispieldatei: https://www.herber.de/bbs/user/46306.xls
ich hoffe das hilft weiter...

AW: Sorry
25.09.2007 08:35:00
Michael
habe jetzt die Beiträge noch mal RICHTIG gelesen. und jetzt klappt die Sache auch.
Vielen Dank noch mal an Euch beide!
Micha

Anzeige
AW: jetzt muss ich doch noch mal...
25.09.2007 08:58:37
Michael
fragen:
in meinem testbeispiel hat das gut geplappt, dort hießen die Kästchen auch 1 und 2
in meiner richtigen Datei heißen die Kästchen 8 und 12 sowie 16 und 20
wenn ich im Code 1 und 2 gegen 8 und 12 sowie gegen 16 und 20 austausche klappt das nicht mehr.
Beispiel anbei:

Sub Checkbox()
With Tabelle5
.CheckBoxes(12).Value = .CheckBoxes(8).Value
End With
End Sub


Anzeige
Es geht um den Index...
25.09.2007 16:48:00
{Boris}
Hi Michael,
...und nicht um den Namen. Wenn Du mehrer Kontrollkästchen hast und dann ein paar wieder löschst, dann behalten die Dinger natürlich ihren Namen - z.B. Kontrollkästchen_8. Hast Du aber Nr. 1-7 gelöscht, dann sprichst Du dieses (_8) jetzt mit CheckBoxes(1) an.
Grüße Boris

Anzeige
AW: Es geht um den Index...
26.09.2007 09:42:00
Michael
Hallo Boris,
...wie finde ich den Index heraus?
Ich habe das Problem jetzt übrigens auf eine andere Art gelöst: Ich habe je Kontrollkästchen eine Checkbox (Toolbox) eingefügt, welche sich auf die gleiche Zelle wie die Kontrollkäschen beziehen. Die Checkboxen habe ich dann mit einem anderen Code verknüpft. Ist etwas umständlich aber es funktioniert. Leiser konnte ich die Kontrollkästchen aus diversen anderen Gründen nicht gleich ersetzen.
Danke für Eure Hilfe, Vielleicht könnt Ihr mir noch auf meine obige Frage antworten?
Micha

Anzeige
AW: Es geht um den Index...
26.09.2007 12:15:13
{Boris}
Hi Michael,

Sub test()
Dim Ch As CheckBox
For Each Ch In Tabelle1.CheckBoxes
MsgBox Ch.Index & " = " & Ch.Name
Next Ch
End Sub


Grüße Boris

;

Forumthreads zu verwandten Themen

Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Wenn Sheet aktiviert dann Autofilter
Michael

Hallo zusammen,
ich hab ein Problem und zwar:
Wenn der User z.B. Tabelle1 aktviert/anklickt dann soll Autofilter aktiviert werden und in der Spalte F der Wert "1" gefiltert werden.
Eine Lösung mit eine Commandbutton hab ich schon es geht mir eher darum, wenn der User keine Button kl...
24.03.2010 17:43:49
Thread-ID: 1148196
3 Beiträge
Checkboxen Excel wenn aktiv dann ....
Andre

Hallo Excel Freunde,
ich möchte wenn mehreren Checkboxen aktiviert sind mit einem button die dazugehörigen namen ausdrucken. Die Namen sollen dann nacheinander in ein vorgefertigtes Formular kopiert und ausgedruck werden. Nach dem Ausdruck können dann die Boxen wieder deaktiviert werden.
24.11.2016 09:31:14
Thread-ID: 1526718
2 Beiträge
wenn Optionsbutton aktiviert dann Spalte berechne
angelika

Hallo
kann mir bitte jemand helfen ?
Meine Tabelle
In spalte A5:A10 wird die Anzahl eingetragen
In spalte b5:b10 wird ein Betrag eingetragen - manchmal netto manchmal brutto
In spalte c5:c10 wird die Summe aus Anzahl * Betrag angezeigt
jetzt möchte zwei Optionsfelder...
12.08.2017 14:34:37
Thread-ID: 1574147
3 Beiträge
Wenn Kotrollkästchen aktiviert dann Befehl
John

Hallo
Ich habe ein Problem und hoffe ihr könnt es lösen:
Ich habe ein UserForm und wenn man einen Button drückt wird ein Makro ausgeführt. Jetzt will ich wenn das Kontrollkästchen, das auch in dem UserForm ist, aktiviert wurde (also häckchen rein), dass dann zusätzlich ein Befehl ausgefü...
01.01.1970 00:00:00
Thread-ID: 405175
5 Beiträge
wenn Makro nicht aktiviert, dann keine Anzeige
Erde24

Hallo
wer kann mir helfen? Ich will, daß wenn man Makros nicht aktiviert hat, dass dann die Datei nicht geöffnet werden kann, bzw. die Tabellenregister nicht sichtbar sind. Wie kann man das realisieren?
05.12.2005 08:25:52
Thread-ID: 704480
4 Beiträge
VBA-Wenn A1 aktiviert, dann Zeilen einblenden
Bernd

Hallo Excel- und VBA-Profis!
Ich habe ein Problem, bei dem ich nicht weiterkomme [geht m.E. nur mit VBA :-(]
In der Beispielmappe https://www.herber.de/bbs/user/44876.xls habe ich in den Zeilen 4, 9, 13, 36, 47 und 54 Überschriften. Wenn eine Überschrift angeklickt wird, dann sollen die...
08.08.2007 16:32:01
Thread-ID: 894779
11 Beiträge
Mehrere Kontrollkästchen via VBA einfügen
Anke

Hallo,
ich bin gerade dabei, mittels eines VBA Skripts eine vorher definierte und sich unterscheidende Anzahl an Kontrollkästchen in die Spalten B und C einzufügen.
Hier ist mal mein Code, der den Abschnitt betrifft. Sub SetAmountChkBox() 'Disable Screen Update Application.ScreenUpdati...
14.01.2020 17:54:19
Thread-ID: 1734108
4 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

Kontrollkästchen in Excel verknüpfen und aktivieren

Schritt-für-Schritt-Anleitung

Um ein Excel-Kontrollkästchen durch ein anderes aktivieren zu können, gehst du wie folgt vor:

  1. Füge zwei Kontrollkästchen ein:

    • Gehe zu "Entwicklertools" > "Einfügen" und wähle "Kontrollkästchen (Formularsteuerelemente)" aus. Füge zwei Kontrollkästchen in dein Arbeitsblatt ein.

  2. Benenne die Kontrollkästchen:

    • Klicke mit der rechten Maustaste auf jedes Kontrollkästchen, wähle "Steuerelement formatieren" und gib ihnen sinnvolle Namen, z.B. "Check Box 1" und "Check Box 2".

  3. Erstelle das Makro:

    • Öffne den VBA-Editor (Alt + F11) und erstelle ein neues Modul. Füge den folgenden Code ein:
    Private Sub Worksheet_Change(ByVal Target As Range)
   ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = ActiveSheet.Shapes("Check Box 1").ControlFormat.Value
End Sub

  4. Verknüpfe das Makro mit dem Kontrollkästchen:

    • Klicke mit der rechten Maustaste auf "Check Box 1", wähle "Makro zuweisen" und wähle dein Makro aus.

  5. Teste die Checkboxen:

    • Wenn du jetzt "Check Box 1" aktivierst oder deaktivierst, sollte "Check Box 2" entsprechend reagieren.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Stelle sicher, dass die Namen der Kontrollkästchen im Code korrekt sind.

  • Fehler: Der Klick auf das Kontrollkästchen löst kein Ereignis aus.

    • Achte darauf, dass du die Kontrollkästchen aus den Formularsteuerelementen verwendest. ActiveX-Steuerelemente benötigen eine andere Handhabung.

  • Lösung: Verwende den richtigen Code.

    • Nutze den folgenden VBA-Code, um mehrere Kontrollkästchen zu aktivieren:
    Sub Checkbox()
  With Tabelle1
      .CheckBoxes(2).Value = .CheckBoxes(1).Value
  End With
End Sub

Alternative Methoden

  • Verwendung von Zellverknüpfungen:

    • Du kannst die Kontrollkästchen auch mit Zellen verknüpfen. Klicke mit der rechten Maustaste auf das Kontrollkästchen, gehe zu "Steuerelement formatieren" und gib eine Zelle an. Dann kannst du Formeln verwenden, um andere Zellen basierend auf diesen Werten zu aktivieren.

  • Excel mehrere Kontrollkästchen einfügen:

    • Wenn du mehrere Kontrollkästchen einfügen möchtest, kannst du die oben genannten Schritte wiederholen oder die Kopierfunktion verwenden.

Praktische Beispiele

  • Beispiel 1: Zwei Kontrollkästchen verknüpfen

    Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = ActiveSheet.Shapes("Check Box 2").ControlFormat.Value
End Sub

  • Beispiel 2: Checkbox aktivieren, wenn ein anderer aktiv ist

    If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = xlOn Then
  ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = xlOn
Else
  ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = xlOff
End If

Tipps für Profis

  • Indexierung von Kontrollkästchen:

    • Wenn du mehrere Kontrollkästchen hast, ist es oft besser, sie über ihren Index anzusprechen, z. B. .CheckBoxes(1) statt über den Namen. Das macht den Code robuster.

  • Fehlerbehandlung einfügen:

    • Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass dein Makro auch bei unerwarteten Eingaben stabil bleibt.

FAQ: Häufige Fragen

1. Wie finde ich den Index eines Kontrollkästchens? Du kannst den folgenden Code verwenden, um alle Kontrollkästchen aufzulisten und ihren Index anzuzeigen:

Sub test()
    Dim Ch As CheckBox
    For Each Ch In Tabelle1.CheckBoxes
        MsgBox Ch.Index & " = " & Ch.Name
    Next Ch
End Sub

2. Was ist der Unterschied zwischen Formularsteuerelementen und ActiveX-Steuerelementen? Formularsteuerelemente sind einfacher und schneller zu verwenden, während ActiveX-Steuerelemente mehr Flexibilität bieten, aber auch komplexer in der Handhabung sind.

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