captainchaos666
Goto Top

Excel VBA Bezeichnungsfelder variabel adressieren

Hallo an Alle,
könnt Ihr mir bei folgendem Problem weiterhelfen.

Ich habe in Excel unter Userform 10 Bezeichnungsfelder angelegt welche mit Label1 bis Label10 von Excel bezeichnet werden.

Mit Userform.Label1 = „Müller“ kann ich den Text vom Bezeichnungsfeld 1 ändern.

Gibt es eine Möglichkeit die 10 Bezeichnungsfelder mit eine FOR- Schleife zu adressieren. z.B.

For i = 1 To 10
Userform.Label(i) = „Müller“
Next

Danke!

Content-ID: 146221

Url: https://administrator.de/forum/excel-vba-bezeichnungsfelder-variabel-adressieren-146221.html

Ausgedruckt am: 23.12.2024 um 10:12 Uhr

miniversum
miniversum 05.07.2010 um 12:25:45 Uhr
Goto Top
So gehts:
For i = 1 To 10
Userform.Item("Label" & i).Caption = „Müller“
Next i
captainchaos666
captainchaos666 05.07.2010 um 12:56:34 Uhr
Goto Top
Hallo miniversum,
irgendwie bekomme ich das nicht gebacken!

Bekomme folgende Fehlermeldung:

"Fehler beim Kompilieren:
Methode oder Datenobjekt nicht gefunden"

mein Kompiler hinterlegt dann ".Item" blau

Gruß
miniversum
miniversum 05.07.2010 um 16:24:28 Uhr
Goto Top
Also deine Form muss natürlich den Namen "Usterform" haben. Sonnst eben den anderen einsetzen.
Die Labels solten dennamen "Label1", "Label2", usw. haben.
captainchaos666
captainchaos666 06.07.2010 um 08:46:08 Uhr
Goto Top
Hallo miniversum,
kann es vielleicht darin liegen, dass ich Excel 2003 habe. Wenn ich "Userform." eingebe, dann bekomme ich Vorschläge was VBA zu dieser Funktion alles anbietet. Der Befehl "Item" bekomme ich nicht von VBA zur Auswahl angeboten!

Hast du eine Idee was ich noch Falsch mache, ich stehe voll auf dem Schlauch!

Danke
miniversum
miniversum 06.07.2010 um 12:47:34 Uhr
Goto Top
Ach jetzt. Sorry mein Fehler.
Ich hab das aus dem Kopf geschrieben und deshalb einen teil vergessen. Jetzt hab ich nachgesehen wie ich das bei mir gemacht habe:
For i = 1 To 10
Userform.Controls.Item("Label" & i).Caption = „Müller“
Next i
captainchaos666
captainchaos666 06.07.2010 um 14:45:35 Uhr
Goto Top
Hallo miniversum,
du bist mein Held, es funktioniert!

Danke für deine Mühe