UserForm-Objekte mit einer Schleife ansprechen

Forumthread: UserForm-Objekte mit einer Schleife ansprechen

25.09.2003 09:26:39

Martin

Hallo,

ich habe in einer Userform eine (un)bestimmte Anzahl CheckBoxen (unter anderem).
Beim Initialisieren sollen die mittels Schleife durchgegangen und zb 'enabled' werden, oder deren Caption bestimmt werden etc.

Wie spreche ich die einzelnen Checkboxen an?

For Each CheckBox in ..

Gruss,
Martin

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm-Objekte mit einer Schleife ansprechen

25.09.2003 09:31:30

Hajo_Zi
Danke Hajo (oT)

25.09.2003 10:09:48

Martin
Danke für Rückmeldung oT

25.09.2003 10:10:10

Hajo_Zi
AW: UserForm-Objekte mit einer Schleife ansprechen

25.09.2003 09:33:19

Willie
Danke auch dir

25.09.2003 10:11:29

Martin

AW: UserForm-Objekte mit einer Schleife ansprechen

25.09.2003 09:31:30

Hajo_Zi

Hallo Martin

nach folgendem Prinzip

Option Explicit
' erstellt von Hajo Ziplies 21.12.2002
' http://home.media-n.de/ziplies/


Private Sub CommandButton1_Click()
Dim CoCb As Control
Dim InI As Integer
For Each CoCb In Me.Controls
If Left(CoCb.Name, 8) = "CheckBox" Then
If CoCb.Value = True Then MsgBox "Aktion für Checkbox" & _
Mid(CoCb.Name, 9, Len(CoCb.Name) - 8)
End If
Next
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

http://home.media-n.de/ziplies/

Danke Hajo (oT)

25.09.2003 10:09:48

Martin

Danke für Rückmeldung oT

25.09.2003 10:10:10

Hajo_Zi

AW: UserForm-Objekte mit einer Schleife ansprechen

25.09.2003 09:33:19

Willie

Meinst du so? Gruß Willie
Dim frm as Userform1
Set frm = UserForm1
For i = 1 To 5
Controls("CheckBox" & i).AddItem i
With frm.Controls("CheckBox" & i)
.caption = "............."
End With
Next i

Danke auch dir

25.09.2003 10:11:29

Martin

auch gut!

Gruss,
Martin

Beliebteste Forumthreads (12 Monate)

UserForm-Objekte mit einer Schleife ansprechen

Forumthread: UserForm-Objekte mit einer Schleife ansprechen

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread