Clever-Excel-Forum

Hallo Liebe Excel Profis,

ein leihe brauch mal wieder euer Fachwissen Angel

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

Hallöchen,

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

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

toto18

schauan

toto18