Office: (Office 2007) makro alle kontrollkästchen des Tabellenblatts aktivieren

Hallo Leute,

ich habe auf meinem Tabellenblatt "Anwesenheitsplan" sehr viele Kontrollkästchen ca. 200 Stk. Wie muss das Makro aussehen, wo man durch Klick auf einmal alle auf dem Tabellenblatt bestehenden Kontrollkästchen aktivieren kann???

Bitte um Hilfe

Benny

:)

 

hiho


http://www.ms-office-forum.net/forum...d.php?t=213362

dort sind auch beide Varianten enthalten mit Formular und Steuerelementen.

 

ich muss mich verbessern....es sollen nur alle Kontrollkästchen auf Formularbasis aktiviert werden..


dieser code:

Option Explicit

Private Sub CheckBox1_Click()
Dim Box As OLEObject
If CheckBox1 = True Then
For Each Box In ActiveSheet.OLEObjects
Box.Object = True
Next Box
End Sub

aktiviert alle boxen


ich will nur die Kontrollkästchen die aus der Symbolleiste Formular entstanden sind auf aktiv setzen...

wie muss der code dann aussehn?

 

hiho

? ist doch im Link enthalten
oder nicht?

 

ja chris danke hat auch geklappt..

bei mir ist es aber so, ich habe sowohl kontrollkästchen aus formular als auch welche aus steuerelement....

das heisst dein makro funktioniert am ende kommt aber dann auch die gleiche fehlermeldung wie bei Hiob aus deinem Link....

ich will also das nur die kontrollkästchen aus formular berücksichtigt werden und die aus steuerelement soll er ignorieren...soll keine fehlermeldung kommen

Benny

 

hiho

gemischt *Smilie
hatte ich noch nie

eine einfache Möglichkeit wäre

Code:

obwohl ich immer predige das resume next zu vermeiden,
müsste das auf die schnelle mal gehen.
ist aber nicht getestet

 

ja chris wunderbar....

noch ne kleine erweiterung :-)

sorry aber ich bekomm den hals wieder nich voll....

soweit so gut...

gleichzeitig soll er jetzt noch die kontrollkästchen aus steuerelement inaktivieren also haken raus machen...

wie muss es dann aussehen?

 

Kommando zurück ich hab es selber geschafft (Stolzbin)



Sub Kontrollkästchen_Formular_Aktivieren()
Dim chk As Shape
For Each chk In ActiveSheet.Shapes
If Left(chk.OLEFormat.Object.Name, 5) = "Check" Then
On Error Resume Next
chk.OLEFormat.Object.Value = True
On Error GoTo 0
End If
Next

Dim cbo As OLEObject
For Each cbo In ActiveSheet.OLEObjects
If Left(cbo.progID, 11) = "Forms.Check" Then
cbbject.Value = False
End If
Next
End Sub


auf diese Art hat es geklappt....

für einen anfänger wie mich schonmal ein kleiner Erfolg

:-)

Danke dir nochmal!!

Hau rein

 

hiho

Gratuliere und freut mich wenn es so passt.

 

ohne dich wäre ich aber bis 2012 gesessen :-)

bENNY