Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehere Objekte in einer Schleife verändern

mehere Objekte in einer Schleife verändern
22.05.2006 15:43:53
cdi1965
Hi,
wie kann ich die Eigenschaften mehrere Objekte in einer Schleife verändern.
Ich habe hier ein Userform und möchte die CAPTION Eigenschaft der Label 1-20 in einer Schleife verändern.
Die Labels heissen LABEL1-Label20.
Also sowas wie
For i=1 to 20
LABELi.caption="..."
Ich bekomme es nciht hin.
Wer weiss was?
Danke
CDI1965

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

Betreff
Datum
Anwender
Anzeige
AW: mehere Objekte in einer Schleife verändern
22.05.2006 15:52:10
Matthias
Hallo Namenloser,
im Prinzip so:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 20
Me.Controls("Label" & i).Caption = "!" & i
Next i
End Sub

Gruß Matthias
AW: mehere Objekte in einer Schleife verändern
22.05.2006 15:53:39
Reinhard
Hi Cdi,
Option Explicit
Private Sub UserForm_Click()
Dim n As Integer
For n = 1 To 3
Controls("Label" & CStr(n)).Caption = "huhu" & n
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: mehere Objekte in einer Schleife verändern
22.05.2006 19:38:56
CDI1965
Hi,
also so funktioniert es prima, nur kann ich damit anscheinend nur die Controls des aktiven Userforms ansprechen. Ich möchte die Captions von Labels aus dem einen Userform über eine Schleife in die Caption von Lables in ein anderes Userform übertragen.
Dieses bekomme ich aber mit deiner Lösung nicht hin.
Beispiel:
For n = 1 To 8
If Controls("lab" & CStr(n) & "_menge").Caption 0 Then
....
funktioniert prima
For n = 1 To 8
If Controls("Userform_Verkauf.lab" & CStr(n) & "_menge").Caption 0 Then
....
mit dem Namen des Userforms funktioniert leider nicht.
Habe ich was übersehen?
Gruss
CDI1965
Anzeige
AW: mehere Objekte in einer Schleife verändern
22.05.2006 19:55:12
Matthias
Hallo tdi,

If Userform_Verkauf.Controls("lab" & CStr(n) & "_menge").Caption <> 0 Then

Gruß Matthias
AW: mehere Objekte in einer Schleife verändern
23.05.2006 12:25:12
CDI1965
OK
ich war blind.
Mit
If Userform_Verkauf.Controls(lab" & CStr(n) & "_menge").Caption 0 Then
funktioniert es.
Damit alles gelöst.
Danke
Claus

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige