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

Definition von Variablen

Definition von Variablen
18.01.2005 08:32:55
Variablen
Hallo Excel-Freaks,
ich habe ein Userform mit 10 Textboxen - jeweils für ein Jahr. In diese Textboxen sollen Werte geschrieben werden, die von einem Makro ermittelt werden. Um das Coding für das Makro so gerich wie möglichzu halten,würde ich es gerne mit folgender Struktur ablaufen lassen:

Sub Test
dim i as integer
dim textbox as ?
For i=1 to 10
Select case i
case is=1
textbox=userform1.textbox1
case is=2
textbox=userform1.textbox2
'u.s.w bis
case is=10
textbox=userform1.textbox10
end select
textbox= 20*i 'nur als Beispielformel
next i
End Sub

Mein Problem besteht darin, wie ich die Variable textbox definieren muß, damit es als Userform-Textbox erkannt wird. Ich möchte nicht den Wert oder Inhalt der Textbox in der Variable haben. Es soll in abhängigkeit von i immmer eine andere Textbox gefüllt werden.
Vielen Dank für Eure Hilfe
Chris

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Definition von Variablen
18.01.2005 08:42:10
Variablen
Hallo Chris,
Sub Test()
Dim i As Integer
Dim textbox
For i = 1 To 10
Select Case i
Case Is = 1
Set textbox = UserForm1.TextBox1
Case Is = 2
Set textbox = UserForm1.TextBox2
Case Is = 3
Set textbox = UserForm1.TextBox3
Case Is = 4
Set textbox = UserForm1.TextBox4
Case Is = 5
Set textbox = UserForm1.TextBox5
Case Is = 6
Set textbox = UserForm1.TextBox6
Case Is = 7
Set textbox = UserForm1.TextBox7
Case Is = 8
Set textbox = UserForm1.TextBox8
Case Is = 9
Set textbox = UserForm1.TextBox9
Case Is = 10
Set textbox = UserForm1.TextBox10
End Select
textbox.Value = 20 * i 'nur als Beispielformel
Next i
End Sub
Muss aber ausgeführt werden, während das UF geladen ist (z.B. UserForm_Initialize())
Gruß Matthias
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige