von Mappe zu Mappe Daten kopieren

[toto18]

Hallo Liebe Excel Profis,

ein leihe brauch mal wieder euer Fachwissen
Kerndaten:
Mappe1: M-120 Essensabfrage.xlsm ( Sheets: Bestellung)
Mappe2: M-120_Bestellung.xlsx (Sheetnamen für alle 12 Monate Vorgetragen)

Ich Möchte von Mappe1 den bereich I3:I65 in Mappe2 Kopieren und es dem Sheet zuordnet welcher der richtige Monat ist, anhand des Datums(Sheet: Bestellung "G2") aus Mappe1.
Und dann den kopierten bereich in die Nächste Frei Spalte Kopieren.....

Ohne den code für den Variablen Monatsnamen funktioniert er sehr gut.... Aber ich bekomme immer die Fehlermeldung Index nicht im Bereich.... und ich finde meinen Fehler einfach nicht....

Code:

With ActiveWorkbook.Worksheets(MonthName(Month(Workbook.("M-120 Essensabfrage").Worksheets("Bestellung").Range("G2").Value)))

Hier der Vollständige Code.....

Code:

Private Sub CommandButton2_Click()
Dim intSpalte As Integer

         With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
    With Sheets("Bestellung").Range("B3:B65").Copy
    Sheets("Bestellung").Range("I3:I65").Copy
       
            Workbooks.Open (ThisWorkbook.Path & "\M-120_Bestellung.xlsx")
       
                With ActiveWorkbook.Worksheets(MonthName(Month(Workbook("M-120 Essensabfrage").Worksheets("Bestellung").Range("G2").Value)))
                   
 
                    intSpalte = 1
                        Do Until .Cells(1, intSpalte).Value = ""
                            intSpalte = intSpalte + 1
                        Loop
                       
                        .Cells(1, intSpalte).PasteSpecial xlPasteValues
                End With

                ActiveWorkbook.Close savechanges:=True
        Application.CutCopyMode = False
    End With
   
            With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
       
End Sub

Ich hoffe Ihr könnt mir helfen und meine Angaben Reichen Euch dafür....
Tausend Dank Schon mal im Voraus für eure Zeit und Mühe!
Viele Grüße

[schauan]

Hallöchen,

bist Du sicher, dass es das Blatt gibt? "Mai" ist z.B. nicht gleich "Mai "

[toto18]

Hi nein es haben sich keine Leerzeichen eingeschlichen... er sagt immer in der Zeile Sub oder Funktion nicht definiert...