Hallo zusammen,
ich habe folgendes Problem und wäre euch sehr dankbar, wenn ihr mir weiterhelfen könntet. Ich habe per Makro drei Datenübertragungen über externe Quellen definiert. Die ersten beiden Übertragungen funktionieren. Die letzte Übertragung funktioniert nicht perfekt. Da es sich um eine Tabelle mit komplizierten Excel-Formeln handelt, dachte ich mir, dass das Makro die Übertragung deswegen nicht realisieren kann. Daher habe ich einen weiteren Reiter definiert, der die Werte der Tabelle mit den komplizierten Formeln übernimmt. Trotzdem funktioniert es nicht. Anbei findet ihr mein Marko. Ich wäre euch sehr dankbar, wenn Ihr die letzte Datenbertragung anschauen könntet. Den definierte Pfad habe ich mehrmals kontrolliert.
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open("1")
wb.Worksheets("Übersicht_aktuell").Range("D6:D31").Copy ThisWorkbook.ActiveSheet.Range("D65:D90")
wb.Close False
Application.ScreenUpdating = False
Set wb = Workbooks.Open("2")
wb.Worksheets("Input SC_PME Summary Maske").Range("C5:K76").Copy ThisWorkbook.ActiveSheet.Range("W65:AE136")
wb.Close False
Application.ScreenUpdating = False
Set wb = Workbooks.Open("3")
wb.Worksheets("Input für SCPME_Zusammenfassung").Range("B5:K28").Copy ThisWorkbook.ActiveSheet.Range("J65:T88")
wb.Close False
End Sub
Viele Grüße
DE