Werte aus Zellen in fortlaufende Variablen schreib
23.02.2016 14:22:20
Thomas
ich habe gerade ein kleines Problem, sprich stehe auf dem Schlauch, aber ich hoffe das Ihr mir dabei helfen könnt.
Folgender Code:
Sub Gen_Var6()
On Error Resume Next
Dim TmpVar(0 To 3500) As String
' Verkürztes Beispiel...
TmpVar(1) = Sheets("Tabelle 1").Range("c3").Value * 100
TmpVar(2) = Sheets("Tabelle 1").Range("c4").Value * 100
TmpVar(3) = Sheets("Tabelle 1").Range("c5").Value * 100
TmpVar(4) = Sheets("Tabelle 1").Range("c6").Value * 100
End Sub
Ich wollte es jetzt via Schleife abhandeln aber bekomme VBA nicht dazu die Werte wirklich in die Variablen zu schreiben.
Dies ist mein Ansatz dazu:
Sub Gen_Var6()
On Error Resume Next
Dim TmpVar(0 To 3500) As String
For i = 3 To 6
TmpVar(i) = Sheets("Tabelle 1").Range("c" & i & ").Value * 100")
Next iV
End Sub
Leider sind die entstehenden Variablen leer.
Könnt Ihr mir einen Hinweis geben wo der Fehler liegt?
Danke Thomas