Office: Ein Kontrollkästchen aktiviert eine ganze Liste

Hallöle,
bin zwar kein absoluter Newbie in Excel, aber eben stoße ich an meine Grenzen:
Ich habe eine Liste von Einträgen, die jeweils mit einem Kontrollkästchen versehen sind. Jetzt will ich zusätzlich ein weiteres Kästchen mit Beschriftung "alle" hinzufügen, bei dessen Aktivierung alle anderen auch ein Häkchen bekommen. Ich nehme an, das geht über ein Makro, aber ich bekomme es einfach nicht geregelt... :-(
Vielleicht hat es ja eine/r von Euch das schnell parat?
Schöne Grüße, Muhriel

 

Hallo Muhriel...

was für Kontrollkästchen verwendest Du?
Aus der Formularsymbolleiste oder aus der Steuerelementtoolbox?

Gruß

 

Ich habe Formular-Kästchen verwendet. Zur Not "schnitze" ich das aber auch nochmal um, wenn's was hilft... )

 

Hallo nochmal...

erstelle Dir ein Modul im VBA Editor und kopiere den Code dort hinein. Weise dem "ersten" Kontrollkästchen das Makro zu.

Code:

Public Sub AlleMarkieren()

' Kontrollkästchen, wo das Makro drauf liegt, heisst Kontrollkästchen 1
' Alle anderen Kontrollkästchen auf diesen Wert setzen
  
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 2").ControlFormat.Value = _
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 1").ControlFormat.Value
  
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 3").ControlFormat.Value = _
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 1").ControlFormat.Value
  
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 4").ControlFormat.Value = _
  ThisWorkbook.ActiveSheet.Shapes("Kontrollkästchen 1").ControlFormat.Value
  
' Usw. Wenn die alle systemtatisch benannt wurden, könnte man auch
' eine Schleife verwenden.
  
End Sub

Damit das funktioniert musst Du die Namen der verwendeten Kontroll-
kästchen prüfen, die Namen findest im Namensfeld von Excel.

Wenn's nicht geht, Deinen Code posten.

Gruß

 

Sorry, aber irgendwie bin ich für die "höheren Weihen", sprich Makro-Anlage in Excel anscheinend zu blöd! Ich komme mit der Verknüpfung und dem Aufbau irgendwie nicht klar... :-( In anderen Programmen ist das irgendwie einfacher...

Da ich die Datei hier im Forum leider nicht anhängen kann (Bug?), muss ich mir also leider irgendwie anders behelfen. Aber trotzdem Danke für den Versuch!

Gruß, Muhriel

 

Hi muhriel...

ich habe Dir mal ein Beispiel erstellt und auf meinem Server abgelegt,
wo Du es herunterladen kannst. Eine Mini-Anleitung ist auch dabei.

http://www.maninweb.de/miscilleanous/muhriel.xls

Gruß

 

Hallo muhriel,

1) Du sagst, dass Du Formularkästchen verwendest. Wenn das so ist, hast Du sicher auch im Arbeitsblatt für jedes Kontrollkästchen eine verknüpfte Arbeitsblattzelle angelegt. In jeder dieser verknüpften Zellen muss daher in diesem Fall entweder 'WAHR' oder 'FALSCH' stehen, je nachdem, ob das verknüpfte Kästchen ein Häkchen hat oder nicht.
Du merkst Dir die Zelladresse der verknüpften Zelle für das "Alle"-Kästchen (bei mir ist das Zelle "D4") und Du merkst Dir die Zelladressen der übrigen verknüpften Zellen für die restlichen Kästchen (bei mir sind das zB. "D5" und "D6").
2) a) Du markierst zuerst mit der Maus untenstehendes Makro und drückst die Tasten Strg+C, um es in die Zwischenablage zu kopieren.
b) Dann gehst Du in den VBA-Editor, indem Du die Tasten Alt+F11 drückst.
c) Im VBA-Editor erzeugst Du ein neues Code-Modul, indem Du im Menü des VBA-Editor "Einfügen > Modul" klickst.
d) An der Cursorstelle fügst Du das kopierte Makro ein, indem Du die Tasten Strg+V drückst.

Code:

Public Sub AlleKästchen_BeiKlick()
  Dim Wert As Boolean
  With ActiveSheet
    Wert = .Range("D4").Value
    .Range("D5").Value = Wert
    .Range("D6").Value = Wert
  End With
End Sub

3) Wie Du siehst, musst Du die Stellen mit "D4", "D5", "D6" an Deine Zelladressen anpassen, und falls Du weitere verknüpfte Zellen/Kästchen hast, musst Du noch weitere Makrozeilen '.Range("D7").value=Wert' einfügen.
4) Du gehst dann zurück ins Arbeitsblatt mit den Kästchen, klickst mit der rechten Maustaste auf das Kästchen, das die "alle"-Funktion bekommen soll, wählst den Kontextmenüeintrag 'Makro zuweisen..." aus, im daraufhin erscheinenden Dialogfenster wählst Du den Eintrag für das vorhin angelegte Makro aus, klickst auf 'Ok' - und die Makrofunktionalität für das 'Alle'-Kästchen ist installiert.