Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

von Mappe zu Mappe Daten kopieren
#1
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
Antworten Top
#2
Hallöchen,

bist Du sicher, dass es das Blatt gibt? "Mai" ist z.B. nicht gleich "Mai "
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Hi nein es haben sich keine Leerzeichen eingeschlichen... er sagt immer in der Zeile Sub oder Funktion nicht definiert...
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste