Laufzeitfehler bei Arbeit mit Workbook
06.04.2017 15:52:10
Jonas
ich habe gerade ein Kleines Projekt in der Arbeit und mein Code funktioniert zwar aber an einem _ bestimmten Punkt bekomm ich den Laufzeitfehler 1004.
Sub WorkBook_Open()
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook
Dim wb As Workbook
Set WbDatei2 = ThisWorkbook
Set WbDatei1 = Workbooks.Open("~Pfad~", ReadOnly:=True)
WbDatei2.Sheets(1).Range("A1:DJ8000").Value = WbDatei1.Sheets(1).Range("A1:DJ8000").Value
WbDatei1.Close
Set WbDatei1 = Nothing
Set WbDatei2 = Nothing
Set WbDatei2 = ThisWorkbook
Set WbDatei1 = Workbooks.Open("~Pfad~", ReadOnly:=True)
WbDatei2.Sheets(1).Range("A8000:DJ16000").Value = WbDatei1.Sheets(1).Range("A8000:DJ16000"). _
Value
WbDatei1.Close
Set WbDatei1 = Nothing
Set WbDatei2 = Nothing
Set wb = Workbooks.Open("~Pfad~", ReadOnly:=True)
wb.Application.ActiveWindow.Visible = False
Application.DisplayAlerts = False
wb.Close
Application.DisplayAlerts = True
Set wb = Nothing
Set WbDatei1 = Nothing
Set WbDatei2 = Nothing
End Sub
bevor die Frage aufkommt warum ich die Range geteilt habe: Ich dachte es handelt sich um einen Überlauf der Variable und er hat immer bis ca 8100 Zeilen gearbeitet. Leider tritt der Fehler immer noch auf.
Vielen Dank schon einmal für die Bemühungen
Gruß Jonas