Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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
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

241 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige