VBA, Steuerelement-Array

15/10/2007 - 08:12 von Harald Elsässer | Report spam
Hallo Leute,
bin ich hier in der richtigen Gruppe, um eine Frage zu obigem Thema zu
stellen?

Ich möchte auf einer UserForm (Excel2000) ca. 30 Textfelder und 30 Labels
plazieren.
Diese sollen spàter gemeinsam behandelt/ausgewertet werden.

Ich hàtte deshalb gerne ein Array aus Steuerelementen. Dieses Array würde
ich gerne zur Laufzeit per Code erzeugen und die Grössen-Eigenschaften etc.
der Elemente auch per Code setzen.

Gibt es sowas wie

- ERZEUGE TextARRAY(30) aus Textfelderm
- ERZEUGE LabelARRAY(30) aus Labels

for i=1 to 30
TextARRAY(i) .width0
TextARRAY(i) .visible=True
. .
next i

Gruss & Danke
Harald
 

Lesen sie die antworten

#1 stefan onken
15/10/2007 - 12:28 | Warnen spam
On 15 Okt., 08:12, Harald Elsàsser
wrote:
Hallo Leute,
bin ich hier in der richtigen Gruppe, um eine Frage zu obigem Thema zu
stellen?



hallo Harald,
ja, du bist hier richtig, für Excel gibt es keine eigene VBA-NG.


Ich möchte auf einer UserForm (Excel2000) ca. 30 Textfelder und 30 Labels
plazieren.
Diese sollen spàter gemeinsam behandelt/ausgewertet werden.

Ich hàtte deshalb gerne ein Array aus Steuerelementen. Dieses Array würde
ich gerne zur Laufzeit per Code erzeugen und die Grössen-Eigenschaften etc.
der Elemente auch per Code setzen.

Gibt es sowas wie

- ERZEUGE TextARRAY(30) aus Textfelderm
- ERZEUGE LabelARRAY(30) aus Labels

for i=1 to 30
TextARRAY(i) .width0
TextARRAY(i) .visible=True
. .
next i



meinst du so etwas (in einem Standardmodul)?

Public textArray(30)

Sub ini()
For i = 1 To 30
Set textArray(i) = UserForm1.Controls("Textbox" & i)
Next
UserForm1.Show 0
End Sub

Sub EinAusblenden()
x = InputBox("nr 1-30 ?")
textArray(x).Visible = not textArray(x).Visible
End Sub


Gruß
stefan

Ähnliche fragen