Variable zuweisen
03.03.2008 14:22:13
Dirk
ich habe in einer Tabelle in Spalte A Werte stehen, denen ich eine Variabele zuweisen möchte. Das ich alle Variabelen einzen deklarieren muß weiß ich mittlerweile. Meine Frage ist jetzt ob es eine Möglichkeit gibt das mit einer For Next Schleife zu lösen so ähnlich wie unten beschrieben. Der Code funktioniert so leider nicht.
Danke schonmal.
Grüße
Dirk
Sub versuch()
Dim v1 As Variant
Dim v2 As Variant
Dim v3 As Variant
Dim v4 As Variant
Dim v5 As Variant
Dim v6 As Variant
Dim v7 As Variant
With Worksheets("Files_for_import")
LastRowA = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For x = 1 To LastRowA
v& x = Sheets("Files_for_import").Range("A" & x).Value
Next x
End Sub
Anzeige