For-Schleife mit FormulaR1C1
17.12.2012 13:06:46
Anito
ich bin langsam mit meinem Latein am Ende;
ich möchte aus einer externen Datei, welche in meiner Spalte ganz oben steht über einen Hyperlink und die FormulaR1C1 Funktion einen bestimmten Wert auslesen, beispielsweise so:
Cells(ActiveCell.Row, ActiveCell.Column).Select
ActiveCell.FormulaR1C1 = _
"="" ='\C \Ordner1\[""&R[-3]C&""]Tabelle1'!$G$5"""
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
ActiveCell.FormulaR1C1 = _
"="" ='\C \Ordner1\[""&R[-4]C&""]Tabelle1'!$G$6"""
Da dies nun ca. 80 Werte sind wollte ich das Ganze in eine for-Schleife packen, um mir deutlich Arbeit zu ersparen, jedoch wird mir immer ein Fehler angezeigt, meine Lösung schaut wie folgt aus:
For i = 3 To 80
Cells(ActiveCell.Row, ActiveCell.Column).Select
ActiveCell.FormulaR1C1 = _
"="" ='\ C \Ordner1\[""&\[""&R[&-i]C&""]Speicherverbrauch'!$C$&i"""
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Next
Vielen Dank schon mal im Voraus