Clever-Excel-Forum

Hallo zusammen, ich habe folgendes Problem:
mit dem Makro werden aus der Datei Daten.xlsx   3 Spalten in eine andere Datei (Kalender.xlsm) eingelesen.
Dies funktioniert schnell und gut . Das Problem dabei ist , diese Datei Daten.xlsx bleibt offen und ich habe dann Probleme
beim Beenden der Datei (Kalender.xlsm). Habe schon verschieden Varianten des schließen eingebaut , funktioniert aber alles nicht.

Danke für die Hilfe. 

Sub DatenRead()
    Dim ExcelApp As Object
    Dim dat As Variant
    Dim dat1 As Variant
    Dim dat2 As Variant
    
    Set ExcelApp = GetObject("C:\AusgangsDaten\Daten.xlsx")
    dat = ExcelApp.Worksheets("Datenkal").Range("P2:P500")
    Range("P2:P150") = dat
    
    dat1 = ExcelApp.Worksheets("Datenkal").Range("O2:O500")
    Range("O2:O150") = dat1
    
    dat2 = ExcelApp.Worksheets("Datenkal").Range("Y2:Y500")
    Range("Y2:Y150") = dat2
    
End Sub

Hallo

vielleicht reicht vor End Sub

Workbooks("Daten.xlsx").close


MfG Tom