Hallo,
ich habe neuerdings einen Fehler in einer Zeile, die bis jetzt ohne Probleme durchgelaufen war.
Sub UpdateYardviewCopy() 'in File: Testfile
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim TestfileWkb As Workbook
Dim YardWkb As Workbook
Set YardWkb = ThisWorkbook
Debug.Print YardWkb.Name
shtYardView.Calculate 'Timeslots aktualisieren
shtYardView.Range("A1:AF" & fLastWrittenRow(shtYardView, 1)).Copy 'nur bis M: die Tabelle kopieren
' On Error Resume Next
' Set TestfileWkb = Workbooks.Open(Filename:=strTestfileFile) 'Testfile öffnen
Set TestfileWkb = TestOpenTestfile
Die Funktion TestOpenTestfile ist einfach nur die Zeile
TestOpenTestfile = Workbooks.Open(Filename:=strTestfileFile)
Wenn ich sie alleine ausführe öffnet sich das Workbook ohne Probleme. Wenn ich den Code oben ausführe bekomme ich "1004: Methode Open für das Object Workbook ist fehlgeschlagen". Ich denke es muss irgendeine Einstellung geben, die in die Quere von der Open Methode kommt? Meine Code Aufrufe sind sehr lang um sie hier zu posten und bisher hat es auch nie Probleme gegeben. Hat jemand eine Idee?
|