Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wie kann ich diese Anweisung zusammenfassen?

Wie kann ich diese Anweisung zusammenfassen?
14.01.2005 11:05:49
Michael
Hallo Leute, wie kann ich die Anweisung zusammenfassen, um nicht für jede Checkbox eine Zeile schreiben zu müssen? Kann ich das per Schleife machen und wenn wie? Oder von 1 bis 566 irgendwie schreiben?

Private Sub CommandButton7_Click()
With Worksheets("MSG-Boxes")
.CheckBox1.Value = False
.CheckBox2.Value = False
.CheckBox3.Value = False
.CheckBox4.Value = False
.CheckBox566.Value = False
End With
End Sub

Gruß Micha
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie kann ich diese Anweisung zusammenfassen?
Volker
Hallo Micha,
da geht bestimmt auch was mit
Dim Knopf as Checkbox (oder so ähnlich)
for each Knopf in Worksheets("MSG-Boxes")
Knopf.Value=False
next
Oder:
For i=1 to 566
with Worksheets("MSG-Boxes").CheckBoxi
.Value=False
end with
next
Oder:?
For i=1 to 566
Worksheets("MSG-Boxes").CheckBoxi.Value=False
next
fröhliches Ausprobieren
Volker
Anzeige
mach ich
14.01.2005 11:49:44
Micha
Probiere es aus und danke für die Hilfe.
Schönes WE Gruß Micha
Hallo Volker, klappt nicht!!
14.01.2005 11:57:55
Michael
Will alles nicht!!
AW: Hallo Volker, klappt nicht!!
Volker
Hab's nicht getestet, deswegen mal die Hilfe wg. der Syntax befragen.
Mache jetzt auch Wochenende.
Ciao
Volker
Anzeige
AW: Wie kann ich diese Anweisung zusammenfassen?
Martin
Hallo Micha,
versuche mal

Private Sub CommandButton1_Click()
For x = 1 To 566
ActiveSheet.OLEObjects("CheckBox" & CStr(x)).Object.Value = False
Next x
End Sub

Gruß
Martin Beck
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige