Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

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

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige