Microsoft Excel

Herbers Excel/VBA-Archiv

Deaktivieren von Kontrollkästchen


Betrifft: Deaktivieren von Kontrollkästchen
von: Phip
Geschrieben am: 14.12.2018 15:33:22

Hallo liebe Community,

ich gehe schwer davon aus, dass die Lösung ziemlich simpel ist (jedoch komme ich selbst nicht drauf!).

Ich suche einen Befehl, der mir alle Kontrollkästchen eines Excel-Arbeitsblattes deaktiviert. Ich habe dabei das Kontrollkästchen aus den Formularsteuerelementen genommen.

Kann mir da jemand auf die Sprünge helfen?

Gruß

  

Betrifft: Deaktivieren von Formular-Kontrollkästchen
von: Beverly
Geschrieben am: 14.12.2018 15:45:42

Hi Phip,

z.B. so:

Sub Deaktivieren()
    Dim inElement As Integer
    For inElement = 1 To ActiveSheet.Shapes.Count
        If ActiveSheet.Shapes(inElement).FormControlType = xlCheckBox Then
            ActiveSheet.Shapes(inElement).DrawingObject.Value = -4146
        End If
    Next inElement
End Sub

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Deaktivieren von Kontrollkästchen
von: {Boris}
Geschrieben am: 14.12.2018 16:06:13

Hi,

da sich die Formularelemente auch direkt als solche ansprechen lassen, geht es alternativ aus so:

Sub oder_so()
Dim Cb As CheckBox
For Each Cb In ActiveSheet.CheckBoxes
    Cb.Value = False
Next Cb
End Sub
VG, Boris


  

Betrifft: Sorry - Internethänger... :-//// oT
von: {Boris}
Geschrieben am: 14.12.2018 16:06:39

....


  

Betrifft: AW: Deaktivieren von Kontrollkästchen
von: {Boris}
Geschrieben am: 14.12.2018 16:06:13

Hi,

da sich die Formularelemente auch direkt als solche ansprechen lassen, geht es alternativ aus so:

Sub oder_so()
Dim Cb As CheckBox
For Each Cb In ActiveSheet.CheckBoxes
    Cb.Value = False
Next Cb
End Sub
VG, Boris


  

Betrifft: AW: Deaktivieren von Kontrollkästchen
von: {Boris}
Geschrieben am: 14.12.2018 16:06:14

Hi,

da sich die Formularelemente auch direkt als solche ansprechen lassen, geht es alternativ aus so:

Sub oder_so()
Dim Cb As CheckBox
For Each Cb In ActiveSheet.CheckBoxes
    Cb.Value = False
Next Cb
End Sub
VG, Boris


  

Betrifft: AW: Deaktivieren von Kontrollkästchen
von: {Boris}
Geschrieben am: 14.12.2018 16:06:15

Hi,

da sich die Formularelemente auch direkt als solche ansprechen lassen, geht es alternativ aus so:

Sub oder_so()
Dim Cb As CheckBox
For Each Cb In ActiveSheet.CheckBoxes
    Cb.Value = False
Next Cb
End Sub
VG, Boris