Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm-Objekte mit einer Schleife ansprechen

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

Anzeige
Danke Hajo (oT)
25.09.2003 10:09:48
Martin
M.
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige