Office: Kopieren eines Arbeitsblatts verursacht Laufzeitfehler

Laufzeitfehler 1004 kopieren einfügen

Guten morgen,
ich bin ein blutiger anfänger leider komm ich nicht mehr weiter und hoffe das mir jemand hier helfen kann

Code:
Sub Aktualisieren87()

Stamm = ActiveWorkbook.Name 'ist die Zieldatei

Excel.Application.EnableEvents = False 'Quelldatei = strFileh87 'Dateiname anpassen
Workbooks.Open Filename:=strFileH87, ReadOnly:=True '"C:\Test\" & Quelldatei 'Ablageort der Quelldatei anpassen
versandbuero87 = ActiveWorkbook.Name 'Workbooks(Quelldatei).Sheets("Halle 87.2_88.6 _Basisdaten").Range("A5:C5").Copy ' Blatt/Bereich anpassen

Range("A6:S50").Select
Selection.Copy

'Workbooks(Stamm).Sheets("Tabelle1").Activate 'Special xlPasteValues ' Blatt/Bereich anpassen
'Range("A5").PasteSpecial

Workbooks(Stamm).Sheets("Tabelle1").Activate 'Special xlPasteValues ' Blatt/Bereich anpassen
Cells(5, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(5, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range(Cells(5, 8), Cells(100, 8)).Delete Shift:=xlToLeft 'löschen der unbenötigten Spalte (Linksverschiebung)
Range(Cells(5, 1), Cells(100, 20)).FormatConditions.Delete


Application.CutCopyMode = False
Workbooks(versandbuero87).Close 'savechanges:=False

End Sub

Sub Aktualisieren60()

Stamm = ActiveWorkbook.Name 'ist die Zieldatei
Excel.Application.EnableEvents = False 'Quelldatei = strFileh87 'Dateiname anpassen
Workbooks.Open Filename:=strFileH60, ReadOnly:=True '"C:\Test\" & Quelldatei 'Ablageort der Quelldatei anpassen
versandbuero60 = ActiveWorkbook.Name 'Workbooks(Quelldatei).Sheets("Halle 87.2_88.6 _Basisdaten").Range("A5:C5").Copy ' Blatt/Bereich anpassen

Range("A6:U50").Select
Selection.Copy

Workbooks(Stamm).Sheets("Tabelle1").Activate 'Special xlPasteValues ' Blatt/Bereich anpassen
Cells(j + 3, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(j + 3, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range(Cells(j + 3, 8), Cells(j + 100, 8)).Delete Shift:=xlToLeft
Range(Cells(5, 1), Cells(100, 20)).FormatConditions.Delete


Application.CutCopyMode = False
Workbooks(versandbuero60).Close 'savechanges:=False

End Sub



Hier ist mein Code, bei dem Proggram tritt ab und zu Fehler auf (Laufzeitfehler 1004), es ist nicht regelmässig.wenn ich auf debuggen klick dann zeigt er mir dass der Fehler im sub aktualisieren 60 zeile Workbooks.Open liegt.Aber Aktualisieren 87 wird zuerst ausgeführt und identisch wie aktualisieren60 warum tritt der Fehler ers später auf? Ich bin so am verzweifeln. Handelt es sich hier um diesen bekannten Fehler http://support.microsoft.com/kb/210684/de wenn ja, wie könnte ich es lösen?

Vielen Dank im voraus
Viele Grüsse