Zellen von einer Datei zu einer anderen mit VBA kopieren - Laufzeitfehler 9

[exblow375]

Hallo zusammen,

noch immer habe ich meine Schwierigkeiten mit VBA (ich habe vor kurzem angefangen) und stehe nun vor einem Problem über das vermutlich die meisten lachen:

Ich möchte jede 82. Zeile in den Spalte A:K meiner Datei RAW, Blatt "Data" in die gleichen Zeilen einer anderen Datei kopieren (Datei "Version 2.0", Blatt "Main(2)").

Leider bekomme ich mit meinem bisherigen Code stets den Laufzeitfehler 9.

Mein Code: 

Code:

Sub InsertData()

Dim i As Integer

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 82

Workbooks("RAW").Worksheets("Data").Range(Cells(i, 1), Cells(i, 11)).Copy Destination:=Workbooks("Version 2.0").Worksheets("Main(2)").Range(Cells(i, 62), Cells(i, 72))

Next i

End Sub

Rechtschreibfehler in den Bezeichnungen sind überprüft. Wo ist mein Fehler?
Wäre schön wenn mir jemand weiterhelfen könnte!

DANKE!

[Crazy Tom]

Hallo

unter der Voraussetzung, dass alle Datei- und Blattnamen richtig geschrieben sind
und das beide Dateien offen sind sollte es nicht zum Laufzeitfehler 9 kommen
ich bekam nen 1024 Fehler den ich so behoben habe

Code:

Sub InsertData()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 82
Workbooks("RAW").Worksheets("Data").Range(Cells(i, 1), Cells(i, 11)).Copy _
   Destination:=Workbooks("Version 2.0").Worksheets("Main(2)").Cells(i, 62)
Next i
End Sub

kommt der Fehler 9 immer noch?

MfG Tom

[exblow375]

Leider immer noch derselbe Fehler. Kann es vielleicht daran liegen das ich einen Mac nutze? Alle meine andere Makros funktionieren einwandfrei..

[Crazy Tom]

keine Ahnung ob das bei nem Mac anders ist...
aber Laufzeitfehler 9... Index ausserhalb des gültigen Bereichs
sagt doch aus, dass es etwas nicht gibt was du im Code angibst
also Schreibweise oder das Workbook ist nicht offen

[exblow375]

Kann sein das ich bescheuert bin..habe screenshots gemacht von allen meinen OFFENEN Dateien. Mittlerweile habe ich die Namen im Makro und den Dateien  vereinfacht falls das 2.0 oder (2) irgendwelche Probleme bereitet haben sollte aber auch der angepasste Code produziert denselben Fehler.  

Code:

Sub InsertData()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 82
Workbooks("RAW").Worksheets("Data").Range(Cells(i, 1), Cells(i, 11)).Copy _
   Destination:=Workbooks("Version").Worksheets("Test").Cells(i, 62)
Next i
End Sub

[Gast 123]

Hallo

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 82

ich weiss nicht ob das eine Rolle spielt, aber in diesem Code Teil ist KEIN Workbook und KEINE Tabelle angegeben!
Damit holt sich Excel die Endzeile aus dem gerade aktiven Blatt.  Könnte es daran liegen?

mfg  Gast 123

[exblow375]

Vielen Dank für eure Hilfe! Ich konnte es gerade auf Windows ausprobieren und siehe da: es funktioniert!! Man sollte die Mac-Version verbieten

---

Wobei nein!? Es ist wie verhext..selbst auf Windows bekomme ich nun denselben Fehler!