Dim Variablen() As String
 
Public Var1 As Long
Public Var2 As String
 
Private Sub cmdArrayErstellen_Click()
Dim vars As String
vars = "Var1|Var2"
Variablen() = Split(vars, "|")
End Sub
 
Private Sub cmdVariablenZuruecksetzen_Click()
For Each Item In Variablen
CallByName Me, Item, VbLet, Nothing
Next
MsgBox "Alle Variablen zurückgesetzt."
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co