2
Variableninhalt anhand des Variabelnnamens erhalten
Hallo
Ich schreibe an einem Macro in vba unter Excel 2003.
Dort benötige ich ene Funktionalität die mir den Inhalt einer Variable anhand ihres Variabelnnamens liefert.
Versucht hab ich shconmal folgendes:
und
In beiden Fällen sollte eigentlich als Ihnahlt von var3 = "Hallo" stehen.
Beides Funktioniert nicht.
Ich habe auch schon Varianten mit "ExecoteExcel4Macros" und "VarPtr", was aber auch nicht funktionierte.
Im Prinzip suche ich das entsprechende zu "Application.Run" wo man ja auch ein Funktionsname als String angeben kann, nur eben für (String-)Variabeln.
Ich hoffe das mein Vorhaben einigermasen verständlich erklärt ist. Wenn nicht ganz klar einfach nachfragen.
miniversum
Ich schreibe an einem Macro in vba unter Excel 2003.
Dort benötige ich ene Funktionalität die mir den Inhalt einer Variable anhand ihres Variabelnnamens liefert.
Versucht hab ich shconmal folgendes:
var1 = "hallo"
var2 = "var1"
Evaluate "var3=" & var2
MsgBox var3var1 = "hallo"
var2 = "var1"
var3 = Evaluate(var2)
MsgBox var3Beides Funktioniert nicht.
Ich habe auch schon Varianten mit "ExecoteExcel4Macros" und "VarPtr", was aber auch nicht funktionierte.
Im Prinzip suche ich das entsprechende zu "Application.Run" wo man ja auch ein Funktionsname als String angeben kann, nur eben für (String-)Variabeln.
Ich hoffe das mein Vorhaben einigermasen verständlich erklärt ist. Wenn nicht ganz klar einfach nachfragen.
miniversum
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 104824
Url: https://administrator.de/contentid/104824
Printed on: April 20, 2024 at 14:04 o'clock
2 Comments
Latest comment
Hallo miniversum!
In VBS würde
funktionieren, aber für VBA habe ich leider auch keinen Lösungsvorschlag. 
Vielleicht könntest Du für die gewünschte Funktionalität ein "Dictionary" verwenden:
Grüße
bastla
In VBS würde
var1 = "hallo"
var2 = "var1"
var3 = Eval(var2)
MsgBox var3Vielleicht könntest Du für die gewünschte Funktionalität ein "Dictionary" verwenden:
Set d = CreateObject("Scripting.Dictionary")
d.Add "var1", "hallo"
var2 = "var1"
var3 = d.Item(var2)
MsgBox var3bastla
Danke für die Antwort.
Das mit Directory geht schon in die Richtung. Aber es ist auch nicht ganz das was ich benötige.
Vielleicht wars auch ein blödes Beispiel.
Mal anders erklärt bräuchte ich eine Funktion die mir bei:
das ausgibt was in Zelle E1 steht oder Eben das Hallo. Also den befehl ausführt der im String angegeben ist.
nur welcher Befehl dieses "mache" ist weiß ich eben nicht.
Das Eval hab ich mal versucht indem ich einen Verweiß auf die Microsoft Scripting Komponente gemacht habe. Das hat aber auch nicht funktioniert.
Das mit Directory geht schon in die Richtung. Aber es ist auch nicht ganz das was ich benötige.
Vielleicht wars auch ein blödes Beispiel.
Mal anders erklärt bräuchte ich eine Funktion die mir bei:
Dim var1 As String
var1 = "Range(""E1"").Text"
MsgBox mache(var1)
var1 = """Hallo"""
MsgBox mache(var1)nur welcher Befehl dieses "mache" ist weiß ich eben nicht.
Das Eval hab ich mal versucht indem ich einen Verweiß auf die Microsoft Scripting Komponente gemacht habe. Das hat aber auch nicht funktioniert.
