Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zustand von Kontrollkästchen in Schleife abfragen

Zustand von Kontrollkästchen in Schleife abfragen
04.12.2004 23:28:32
Kontrollkästchen
Hallo Leute,
ich habe auf der UserForm1 40 Kontrollkästchen angelegt und möchte diese erstmal alle auf FALSE stellen:
UserForm1.CheckBox1=False
....
....
UserForm1.CheckBox40=False
Einfacher wäre es mit einer Schleife.
Kann mir Jemand sagen wie ich dies in einer Schleife erledigen kann?
Viele Grüße
Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Zustand von Kontrollkästchen in Schleife abfra
04.12.2004 23:32:24
Kontrollkästchen
Hallo Werner!
ZB. so:

Private Sub UserForm_Initialize()
Dim msfChk As MSForms.CheckBox
For Each msfChk In Me.Controls
msfChk = False
Next
End Sub
Gruß Sepp
Anzeige
Nimm besser diesen Code
04.12.2004 23:45:54
Josef
Hallo Werner!
War ein bisschen zu schnell geschossen ;-)
Nimm diesen Code:

Private Sub UserForm_Initialize()
Dim oChk As MSForms.Control
For Each oChk In Me.Controls
If TypeOf oChk Is MSForms.CheckBox Then oChk = False
Next
End Sub
Gruß Sepp
Anzeige
AW: Zustand von Kontrollkästchen in Schleife abfra
Kontrollkästchen
Hallo Werner,
hier ein Ansatz (setzt alle Checkboxen beim Aufruf der UF auf False)
Private Sub UserForm_Initialize() Dim ctl As Control For Each ctl In Me.Controls If Left(ctl.Name, 8) = "CheckBox" Then ctl.Value = False Next End Sub
Gruß Roland
AW: Zustand von Kontrollkästchen in Schleife abfragen
Kontrollkästchen
Dim c as byte
For c = 1 to 40
controls("CheckBox" & c)= false
next
Udo
Danke für die schnelle Hilfe
05.12.2004 00:06:50
Werner
Hallo Leute,
vielen Dank für die schnelle Hilfe.
Das bringt mich weiter.
Viele Grüße
Werner

Links zu Excel-Dialogen

CheckBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige