2017-04-12 1 views
0

Ich habe ein Wort mit 15+ VB-Formularen und 20-50 CheckBoxen in jedem. Wie lösche ich alle CheckBoxen in aktiver Form (wenn sie gecheckt sind), ohne den Namen jeder CheckBox schreiben zu müssen?Word VB, Alle markierten Felder löschen

Vielen Dank

+0

Schleife steuert Objekt (in VBE F2 drücken und suchen Sie nach 'Control') – R3uK

+0

Dies hilft, aber ich bin immer noch nicht in der Lage, es zu schreiben :( – Salas

+0

einfache Google-Suche und voila: https: //www.experts-exchange .com/questions/26874253/How-to-Loop-mit-VBA-auf-allen-Kontrollen-platziert-in-einem-Word-doc.html – R3uK

Antwort

0

Dieser Code wird die Aufgabe erledigen. Es muss in das Codeblatt des UserForms eingefügt werden.

Private Sub ClearCheckBoxes() 

    Dim Ctl As MSForms.Control 

    For Each Ctl In Me.Controls 
     If TypeName(Ctl) = "CheckBox" Then Ctl.Value = False 
    Next Ctl 
End Sub 
Verwandte Themen