VBA String in Variable umwandeln

Hallo Zusammen,
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

Hallo Thomas,
gibt es eine Fehlermeldung?
Es sollte eine Prüfung eingebaut werden, ob der Suchbegriff gefunden wurde.
Zusätzlich sollten bei der Find-Methode immer die Parameter Lookin und Lookat angegeben werden, da hier sonst andere Einstellungen aus einer vorherigen Suche verwendet werden.
Probiere es mal so:

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(What:=arrZeilenName(i), LookIn:=xlValues, _
lookat:=xlPart) 'ggf.xlwhole statt xlPart)
End With
' funktioniert ohne Problme
If Not findresult Is Nothing Then
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
End If
Next i
End Sub

LG
Franz

Forumthread: VBA String in Variable umwandeln

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial