Variable Variablen

Public Sub jjjjj() hauseins = 10 garteneins = 20 If i = 1 Then bez = "haus" x = bez & "eins" 'x sollte 10 sein, die Variable ist aber ein String, denke ich End If If i = 2 Then bez = "garten" x = bez & "eins" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub jjjjj() Dim x(1 To 2) As Integer, i As Integer Dim bez(1 To 2) As String hauseins = 10 garteneins = 20 bez(1) = "Haus" x(1) = hauseins bez(2) = "Garten" x(2) = garteneins For i = 1 To 2 MsgBox bez(i) & Space(2) & x(i) Next i End Sub

Lieber Gerd. lieber Luc
Zuerst mal ein Gutes Neues Jahr!
Zu Gerd:
Ich will eine integre oder Double-Variable als "Variablennamen" zusammensetzen, und nicht
als String-Kombination in einer MsgBox auswerfen.
Ich habe zb 20 Variablen vorher bestimmt, die alle so heissen
wie
franzhaus
michihaus
ottohaus
usw.
Sie alle haben vorher Zahlenwerte bekommen, zB 10,20,30 usw
Um nicht jedes Mal den exakten Variablennamen schreiben zu müssen möchte
ich bloss 1 x definieren, dass
If i=1 then bez(der Teil des Variablennamens, der sich immer ändert) = franz
If i=2 Then bez = michi
usw.
und jetzt kommts:
x= "bez & haus" - wie auch immer man das jetzt macht
und dann sollte "bez & haus" die ursprüngliche Variable franzhaus, für die bereits der Wert 10
eingelesen wurde ergeben, und damit weitergerchnet werden können.
Das muss es doch geben!
Danke für Eure Hilfe!
Jerry

Hi
wie schon von den Vorrednern erwähnt, Visualbasic als Programmiersprache lässt derartige konstrukte nicht zu.
daher wirst du wohl auf ein 1- oder 2- dimensionales Datenfeld zurückkreifen müssen.
das sieht dann im Prinip so aus:


dim NameHaus(20)
NameHaus(1) = franzhaus
NameHaus(2) = michihaus
...

über die Schleifenvariable i hast du dann direkten Zugriff auf den entsprechenden Wert und kannst dir die IF-Abfrage sparen, dh wenn wenn du franzhaus brauchst, kannst du dann auch NameHaus(1) verwenden, oder in einer Schleife entsprechend NameHaus(i).
sollte es neben Haus noch Garten geben, wird das ganze 2-dimensional und sieht dann so aus:


dim NameXX(20,2) as double
NameXX(1,1) = franzhaus
NameXX(1,2) = franzgarten
NameXX(2,1) = michihaus
NameXX(2,2) = michigarten
...

der Zugriff könnte dann so erfolgen, im Beispiel wir der Variable A der Wert von franzgarten zugewiesen


x = 1 'Franz
y = 2 'Garten
a = NameXX(x,y)

frohes neues, Daniel

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread