Excel VBA Runtime 1004 Fehler beim Autofill beim Ausführen auf einem anderen PC

Question

Ich könnte wirklich die Quelle des Wissens hier verwenden!

Ich habe eine VBA-verkrustete Tabelle, die ich erzähle, um eine Formel über einen variablen Bereich automatisch zu füllen. Es funktioniert perfekt auf meinem PC, scheitert aber an einem Kollegen.

Der Fehler ist: Laufzeitfehler 1004

Der Code ist:

Sub FillFormula()  

Dim BOBdate As Date 
Dim Bobrow, lastrow As Integer 

lastrow = ActiveCell.CurrentRegion.Rows.Count + 2 

BOBdate = Sheets("BOB Pivot").Range("a3").Value 

Cells.Find(What:=BOBdate, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

    ActiveCell.Offset(0, 5).Select 
    ActiveCell.FormulaR1C1 = _ 
    "=iferror(INDEX('BOB Pivot'!R2C1:R50000C50,MATCH('Rooms Daily'!RC2,'BOB Pivot'!R2C1:R50000C1,0),MATCH('Rooms Daily'!R3C,'BOB Pivot'!R2C1:R2C50,0)),0)" 

BOBrow = ActiveCell.Row 

With ActiveCell 
    .AutoFill Destination:=Range("G" & BOBrow & ":AJ" & BOBrow), Type:=xlFillDefault 
    .AutoFill Destination:=Range("G" & BOBrow & ":AJ" & LastRow), Type:=xlFillDefault 
    .AutoFill Destination:=Range("G" & BOBrow & ":G" & LastRow), Type:=xlFillDefault 

End With 

End Sub 

Gibt es etwas, offensichtlich ohne die gesamte Arbeitsmappe Hochladen ?!

Ich bin ein Noob zu Vba also, wenn die Codierung ist schrecklich, bitte halten Sie das Gekicher auf der Innenseite!

Danke

Tom

Answer 1

Gelöst ... geändert, um die Art und Weise, in der die Autofill

Answer 2

Soweit ich den Code in Ordnung ist, sagen kann. Wenn Sie die Arbeitsmappe auf einem Computer mit Kollegen ausführen, versuchen Sie, wenn möglich, von demselben Pfad wie dem Computer aus zu arbeiten. Speichern Sie andernfalls die Arbeitsmappe auf Ihrem Computer an einem Standardsystemspeicherort, der auf beiden Computern identisch ist, und versuchen Sie es erneut.