Code sparen

Forumthread: Code sparen
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Code sparen

Code sparen

16.10.2007 20:00:37

Patrick

Hallo zusammen,
ich möchte gerne:
Textbox1.visible=true
Textbox2.visible=true
..
..
durch eine for schleife ersetzten. Meine Idee funktioniert leider nicht.
dim name as string
name ="Textbox"
for i=1 to 5
name+i.visible=true
next
Bin Dankbar für jeden Vorschlag
Patrick

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code sparen

16.10.2007 20:07:00

Original
AW: Code sparen

16.10.2007 20:17:00

Patrick
Und was wenn

16.10.2007 20:31:00

Patrick
AW: Und was wenn

16.10.2007 20:40:47

Original
Und was wenn

16.10.2007 20:49:23

Patrick
AW: Und was wenn

16.10.2007 20:55:42

Original
funktioniert

16.10.2007 21:03:20

Patrick
AW: Code sparen

16.10.2007 23:01:00

tino

AW: Code sparen

16.10.2007 20:07:00

Original

Hi,
Dim c As Byte
For c = 1 to 5
Controls("Textbox" & c).Visible = True
Next
mfg Kurt

AW: Code sparen

16.10.2007 20:17:00

Patrick

super, danke sehr

Und was wenn

16.10.2007 20:31:00

Patrick

Wie muss ich Range("Ax") ansprechen wenn ich z.B.
Range("A3")=Textbox3.value
Range("A4")=textbox4.value
..
..
mit einer for schleife kürzen will?
Gruß Patrick

AW: Und was wenn

16.10.2007 20:40:47

Original

Hi,
Cells(3, 1)= Textbox3.value
Cells(4, 1) =textbox4.value
Cells(Zeile,Spalte)
mfg Kurt

Und was wenn

16.10.2007 20:49:23

Patrick

Funktioniert dein Vorschlag auch bei:
Controls("Userform2.textbox" & c).Visible = True
bei mir kommt die Nachricht, das angegebene Objekt konnte nicht gefunden werden.
Patrick

AW: Und was wenn

16.10.2007 20:55:42

Original

Hi,
immer die Reihenfolge der Objekte einhalten:
Dim c As Byte
For c = 1 To 3
UserForm2.Controls("textbox" & c).Visible = True
Next
mfg Kurt

funktioniert

16.10.2007 21:03:20

Patrick

Danke sehr, besser als jede Vorlesung :)
gruß Patrick

AW: Code sparen

16.10.2007 23:01:00

tino

Hallo,
for i=1 to 5
Userform1.("Textbox" & i).visible=true
next i
mfg
tino