Serienfelder im Exceltabellen

[radost]

Hallo
Ich möchte ein Paar Felder in einem EXCEL-Formluar als Serienfelder deklarieren. Nehmen wir an das Serienfeld soll B12 sein und es muss konsequent mit den Daten der Zeilen 2 bis 1000 ausgefüllt werden. Dafür habe ich das folgende Code geschrieben:


Sub SerienfeldAusfüllen()
Dim i
For i = 2 To 1000 'für jede Zeile
Workbooks.Open "DateiMitSerienFelder.xls"
DateiMitSerienFelder.Worksheets(1).Cells.Range("B12").Value = Cells(i, 14) 'mit Zeilen 2 bis 1000 von der geöffneten Datei ausfüllen
ActiveWorkbook.SaveAs ("Cells(i, 8) & ".xls")
Next i
End Sub

Das ausfüllen und speichern funktioniert, der Zähler i wird aber nicht durch eine Zahl erzsetzt. Woran kann das liegen? Weiß das jemand?
Vielen Dank an allen, die sich melden

 

[NRFi]

machsdu

ActiveWorkbook.SaveAs ("Cells(" & i & ", 8).xls")
'oder wenn du den ganzen inhalt der celle ausgeben wolltest;
ActiveWorkbook.SaveAs (Cells(i, 8) & ".xls")

 

[radost]

Ich meine, daß ich eigentlich 10 verschiedene Dateien mit 10 verschiedenen Namen für 10 Zeilen bekommen sollte. Excel ersetzt aber das i nicht mit einer Zeile, also die Schleife funktioniert nicht (die Referenzierung). Es wird in das Serienfeld eingesetzt, aber nicht mit 2, 3 usw, sondern mit i. Wie kann ich das korrigieren?