Evaluate und Index-Funktion
23.06.2013 20:02:29
cd1001
ICh würde mich über Ihre Hilfe sehr freuen: Warum funtioniert dieser Code nicht:
Dim varArrSub() as Variant
Dim str as String
Dim strEval as String
Dim m_varArr() as Variant 'Public Member der Klasse
strEval="Array(1,2,3)" 'soll später aufgebohrt werden
varArrSub= Evaluate("Index(m_varArr," & strEval & ", 0)")
'Leider gibt es eine Fehlermeldung
Vielen DAnk!