Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Zellen von einer Datei zu einer anderen mit VBA kopieren - Laufzeitfehler 9
Normale Version: Zellen von einer Datei zu einer anderen mit VBA kopieren - Laufzeitfehler 9
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

exblow375

29.07.2019, 20:49
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

29.07.2019, 21:13
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

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

Crazy Tom

29.07.2019, 21:42
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

29.07.2019, 21:54
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

29.07.2019, 21:56
Hallo

Zitat: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

29.07.2019, 22:09
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!
Clever-Excel-Forum > Office-Anwendungen > Excel > Zellen von einer Datei zu einer anderen mit VBA kopieren - Laufzeitfehler 9