Herbers Excel-Forum - das Archiv

label.caption in einer Schleife ändern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label UserForm
Bild

Betrifft: label.caption in einer Schleife ändern
von: drotleff arno
Geschrieben am: 05.12.2003 21:06:49
Hi Leute,

Ich habe eine UserForm3 in der ist eine Multiseite mit 10 Seiten in dieser wiederum sind 36 Labels pro Seite, nun will ich die Eigenschaft Caption und BackColor bei allen ändern also 360 mal.
Wie kann ich das mit einer Schleife.

Dim i As Integer
For i = 0 To 360
If UserForm3.Label& i.Caption = "" Then
UserForm3.Label& i.Caption = str_Text
UserForm3.Label& i.BackColor = &Hff&
End If

Obige Lösung geht nicht :(

MfG Arno Drotleff

Bild

Betrifft: AW: label.caption in einer Schleife ändern
von: Nepumuk
Geschrieben am: 05.12.2003 21:15:41
Hallo Arno,
beispielsweise so:


Dim intIndex As Integer
For intIndex = 1 To 360
UserForm3.Controls("Label" & CStr(intIndex)) = "Ok"
Next



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Bild

Betrifft: AW: label.caption in einer Schleife ändern
von: arno drotleff
Geschrieben am: 05.12.2003 21:37:28
Hallo Nepumuk,

Danke, habe heute den ganzen Tag versucht die Lösung zu finden, dabei ist es so einfach
wenn man’s weiß :)

Gruss Arno
Bild
Excel-Beispiele zum Thema " label.caption in einer Schleife ändern"
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen