Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Controls in Schleife ansprechen

131 views
Skip to first unread message

Klaus Heinrich

unread,
Oct 30, 2005, 3:12:59 AM10/30/05
to
Hallo NG,

ich habe folgende Frage:

wie kann ich mehrere Labels in einem Userform in einer Schleife ansprechen.
Hintergrund

Im Tabellenblatt "Allgemein" liegt in einer Zelle die Währung ( USD,EUR..)
Um in einem anderen Userform nach Änderung der Währung nicht 20 mal die
Codezeile

Label9.Caption = Sheets("Allgemein").Cells(4, 2).Value eintragen zu müssen,
stelle ich mir eine Schleife vor, wie in folgendem Coding aus dem Netz:

Private Sub UserForm_Initialize()

Dim ChBox As Control

Dim i%

For Each ChBox In UserForm1.Controls

If UCase(TypeName(ChBox)) = "CHECKBOX" Then

i = i + 1

ChBox.Caption = "MeineCheckbox " & i

End If

Next ChBox

End Sub

Ich möchte aber angeben können, z.B.
Start = 5
Ende = 10

und dann Label.caption = wie oben

Wie muss man die Schleife umbauen ?

Dank im Voraus und Gruß

Klaus

Melanie Breden

unread,
Oct 30, 2005, 3:34:39 AM10/30/05
to
Hallo Klaus,

Klaus Heinrich schrieb:


> wie kann ich mehrere Labels in einem Userform in einer Schleife ansprechen.
> Hintergrund
>
> Im Tabellenblatt "Allgemein" liegt in einer Zelle die Währung ( USD,EUR..)
> Um in einem anderen Userform nach Änderung der Währung nicht 20 mal die
> Codezeile
>
> Label9.Caption = Sheets("Allgemein").Cells(4, 2).Value eintragen zu müssen,
> stelle ich mir eine Schleife vor, wie in folgendem Coding aus dem Netz:

das funktioniert wie folgt:

Private Sub UserForm_Initialize()
Dim intI As Integer

For intI = 5 To 10
Me.Controls("Label" & intI).Caption = _
Worksheets("Allgemein").Range("B4").Value
Next intI
End Sub


Mit freundlichen Grüssen
Melanie Breden

--
- Microsoft MVP für Excel -
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Das Excel-VBA Codebook http://excel.codebooks.de
Excel-Auftragsprogrammierung

Klaus Heinrich

unread,
Oct 30, 2005, 3:52:17 AM10/30/05
to
Hallo Melanie,

danke für die schnelle Antwort. Funktioniert super.
Schönes Wochenende hoffentlich nicht
nur vor dem PC.

Gruß Klaus

Melanie Breden schrieb:

Melanie Breden

unread,
Oct 30, 2005, 3:59:16 AM10/30/05
to
Hallo Klaus,

Klaus Heinrich schrieb:


> danke für die schnelle Antwort. Funktioniert super.

Bittesehr :-)

> Schönes Wochenende hoffentlich nicht
> nur vor dem PC.

Nein, ein bischen Kuchen backen und Kaffeklatsch
findet da auch noch Platz :-)


Mit freundlichen Grüssen
Melanie Breden

--

0 new messages