Zufallsfehler
08.02.2016 15:48:27
Adrian
Ich habe mir einen Code zusammengebaut, der Daten aus einer geschlossenen Arbeitsmappe in eine _
bereits geöffnete kopieren soll.
Sub Fetchdata()
Dim assemble As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Set assemble = GetObject("P:\QUALITY\CABCARGOQUALITY\040_QECM\080_KSI Mod efficiency\020_Data _
_
_
_
_
Extracts\010_Change Requests\SA - MP.AC.03.03_KPI#107 - Deployment of KSI MOD efficiency WS1 _
solutions.xls")
Dim wsT As Worksheet
Set wsT = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(1))
wsT.Name = "SA"
assemble.Worksheets(1).UsedRange.Copy Worksheets("SA").Range("A1")
assemble.Close savechanges:=False
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Set assemble = Nothing
MsgBox ("Fetching Data done. Please proceed with Step 2."), vbInformation
End Sub
So weit so gut, in der Regel funktioniert es auch so wie es soll...
Ich führe diesen Coe auf wöchentlicher Basis aus und dann passiert es:
Run-time error '1004': Method 'Range'of object '_Worksheet' failed.
Der Debug zeigt auf
assemble.Worksheets(1).UsedRange.Copy Worksheets("SA").Range("A1")
und das wars dann mit dem Macro. :-(
Es kommt mir völlig sporadisch vor und dann (z.B. einige Stunden Später) funktionert der code wiederum tadellos! Was kann das nur sein?
LG
Adrian