Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code sparen

Code sparen
16.10.2007 18: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
Anzeige
AW: Code sparen
16.10.2007 18: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 18:17:00
Patrick
super, danke sehr

Und was wenn
16.10.2007 18: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 18: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 18: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

Anzeige
AW: Und was wenn
16.10.2007 18: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 19:03:20
Patrick
Danke sehr, besser als jede Vorlesung :)
gruß Patrick

AW: Code sparen
16.10.2007 21:01:00
tino
Hallo,
for i=1 to 5
Userform1.("Textbox" & i).visible=true
next i
mfg
tino

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige