Laufzeitfehler '9': Index außerhalb des gültigen B
14.06.2018 13:28:49
Dorothee
eine Kollegin (sie arbeitet an einem IMac) hat mir eine Excelmappe mit Makros zur Verfügung gestellt. Ich arbeite an einem PC (Office 2016) und habe einige Änderungen erfolgreich am Makro vorgenommen, jetzt scheitere ich aber an der Meldung "Laufzeitfehler '9': Index außerhalb des gültigen Bereichs".
Hier ist das Makro:
Sub MappenZusammenkopieren()
' erstellt im Dezember 2005
' geändert 8.2.06 - andere Reihenfolge im zweiten Unit
' geändert 11.4.11 - fr IMac - Excel_2011
' geändert 10.4.17 - fr IMac - Excel_2016
Dim Vorlage, Daten, Quelle, Kopie, Ziel, Kopiertab, DatenQuelle As String
Dim i As Integer
' Fensterposition EQ-Vorlage
Vorlage = ActiveWorkbook.Name
' Datendatei öffnen
DatenQuelle = Application.GetOpenFilename
Workbooks.Open DatenQuelle
Daten = ActiveWorkbook.Name
' Kopiertabelle öffnen
Workbooks.Open Filename:= _
"D:\Marine Geologie\Thermo Finnigan MAT DeltaS\Auswertung\Kopiertabelle.xlsx"
Kopiertab = ActiveWorkbook.Name
' Daten kopieren
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Workbooks(Kopiertab).Activate
Range("A1").Select
Quelle = ActiveCell.Offset(i - 1, 0).Value
Ziel = ActiveCell.Offset(i - 1, 1).Value
Workbooks(Daten).Activate
Range(Quelle).Copy
Workbooks(Vorlage).Activate
Range(Ziel).Select
ActiveSheet.Paste
Next i
' EQ-Vorlage ohne Macro kopieren
Range("A1").Value = Daten
Kopie = Left(Daten, 8) & "_cal"
Workbooks.Add
ActiveWorkbook.SaveAs _
Filename:="D:\Marine Geologie\Thermo Finnigan MAT DeltaS\Auswertung\2018\" & Kopie
Workbooks(Vorlage).Activate
For i = 1 To Sheets.Count
Sheets(i).Copy
After = Workbooks(Kopie).Sheets(i)
Next i
' Fenster von Kopie
Workbooks(Kopie).Activate
' Dateien schlie§en
Workbooks(Kopiertab).Close
Workbooks(Daten).Close
Workbooks(Vorlage).Close
End Sub
Die Fehlermeldung erscheint bei der fett markiert und kursiv geschriebenen Zeile.
Ich könnte wetten, das der Fehler nur minimal ist, aber ohne VBA Kenntnisse erkenne ich den Fehler nicht.
Kann mir jemand helfen?
Für jeden Tip bin ich sehr dankbar!
Liebe Grüße
Doro