Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Pebbles82 vom 27.08.2022, 08:46 Options

Schleife in excel

Hallo zusammen,

ich bin nich so ganz fit in excel und stehe jetzt vor folgendem Problem:

Ich habe eine Tabelle mit 39 Checkkboxes, 6 bis 45
um jetzt nicht immer alle einzeln an und abwählen zu müssen, dachte ich ihc mach mir einen Button um alle auf einmal anzuwählen, bzw. abzuwählen. Um jetzt nicht jede Zeile einzeln eingeben zu müssen würd ich das gerne mit einer Schleife machen. Aber mir fehlen die Grundkenntnisse, wie ich das genau schreiben muss.
Mein erster Ansatz:

Private Sub CommandButton1_Click()
For i = 6 To 45
i = 6
Worksheets("Checkliste").CheckBox"i".Value = True
Next i
End Sub

Abgesehen davon, dass das nich funktioniert, muss ja irgendwie auch noch rein, dass er dann bis 45 hochzälhlt.

Bitte, helft mir, ich find irgendwie keine richtige Hilfe im Internet (was ich bisschen seltsam finde).

Danke

Antwort schreiben

Antwort 1 von Beverly vom 27.08.2022, 09:01 Options

Hi,

Private Sub CommandButton1_Click()
    Dim oobElement As OLEObject
    For Each oobElement In Worksheets("Checkliste").OLEObjects
        If oobElement.progID = "Forms.CheckBox.1" Then oobElement.Object = False
    Next oobElement
End Sub

Bis später,
Karin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken