VBA String in Variable umwandeln
02.05.2020 10:15:16
Thomas
Ich habe folgendes Problem:
Ich habe im meinen Skript Variablen definiert und mit Werten beschrieben. Teilweise über ein Input in eine Userform und teilweise normal deklariert.
Jetzt will ich die normal deklarierten Variablen in einer Schleife aus einem Arry verwenden. Der Schleifenteil für die eingaben in die Userform funktioniert hierbei ohne Probleme (hier wird der Wert der Eingabe ausgegeben und nich der Name der Variable). Der zweite Teil geht leider noch nicht. Hier wird der Name der Variable und nicht der Wert der Variable ausgegeben. Jetzt weiß ich nicht wie ich den Typ der vorab definierten Variable "Variable01" umwandeln kann.
Kann mit hier jemand weiterhelfen? vielen Dank
Hier noch das minimalbeispiel:
Dim inputUserform1 As Integer ' Irgendwo im skipt definiert
Dim Varible01 As Integer ' Irgendwo im skipt definiert
Dim i As Integer, arrZeilenName, arrVarName
arrVarName = Array("inputUserform1", "Variable01")
arrZeilenName = Array("Handelstyp", "Symbol")
For i = LBound(arrZeilenName) To UBound(arrZeilenName)
With Worksheets("TJ").Range("A1:AZ2000")
Set findresult = .Find(arrZeilenName(i))
End With
' funktioniert ohne Problme
If Left(arrVarName(i), 5) = "input" Then
ActiveSheet.Cells(10, findresult.Column).Value = Userform_Dateneingabe(arrVarName(i))
Else
' geht leider noch nicht
ActiveSheet.Cells(10, findresult.Column).Value = arrVarName(i)
End If
Next i