Fejl i overførelse af data fra et ark til et andet

Ikke uden at se noget kode.

Dim produkt As Object

Const dataSamlerSti = "F:\Regnskab\Statusark\"
Const dataSamlerFilNavn = "Statusliste 2015.xlsm"
Dim dataSamler As Object
Private Sub CommandButton1_Click()
Dim produktId, rækDs As Integer
    Set produkt = ActiveWorkbook
   
    produktId = Range("B5")
   
    Set dataSamler = CreateObject("Excel.Application")
    dataSamler.Workbooks.Open dataSamlerSti & dataSamlerFilNavn
   
    rækDs = findRækkeDataSamler(produktId)
    If rækDs > 0 Then
        kopierData rækDs
        dataSamler.ActiveWorkbook.Save
    Else
        MsgBox "ProduktId ikke fundet"
    End If
       
    dataSamler.Quit
    Set dataSamler = Nothing
End Sub
Private Function findRækkeDataSamler(produktId)
Dim antalRækker As Integer
    antalRækker = dataSamler.ActiveCell.SpecialCells(xlLastCell).Row
   
    With dataSamler.Sheets(dataSamlerArkNavn)
        dataSamler.Sheets(dataSamlerArkNavn).Activate
       
        For Each CC In .Range("B5:B" & antalRækker)
            If produktId = CC Then
                findRækkeDataSamler = CC.Row
                Exit Function
            End If
        Next CC
    End With
    findRækkeDataSamler = 0
End Function
Private Sub kopierData(rækDs)
    With dataSamler.Sheets(dataSamlerArkNavn)
        .Range("L" & rækDs) = produkt.Sheets(1).Range("Udsendt_budgopf3")
        .Range("M" & rækDs) = produkt.Sheets(1).Range("resultat_budgopf3")
        .Range("N" & rækDs) = produkt.Sheets(1).Range("SvarDato_budgopf3")
        .Range("O" & rækDs) = produkt.Sheets(1).Range("rykkerbrev1_budgopf3")
        .Range("P" & rækDs) = produkt.Sheets(1).Range("rykkerbrev2_budgopf3")
        .Range("Q" & rækDs) = produkt.Sheets(1).Range("kodefelt_budgopf3")
        .Range("X" & rækDs) = produkt.Sheets(1).Range("SendtMakker_3")
        .Range("Y" & rækDs) = produkt.Sheets(1).Range("ReturMakker_3")
       
    End With
End Sub

Ok - og hvor fejler den så?

Når jeg fortager debug

viser den fejlen her

With dataSamler.Sheets(dataSamlerArkNavn)
        .Range("L" & rækDs) = produkt.Sheets(1).Range("Udsendt_budgopf3")

Har du tjekket at navnet "Udsendt_budgopf3" findes i den fil objektet produkt peger på?

Og at der er værdi i variablen rækDs?

Makroen virker men så lige pludselig holder den op med og virke og kommer med fejl vindue


Run-time error '1004':

Application-defined or object-defined error


Der er findes en værdi og den findes i objektet produkt som den  peger på?

Det virker som om man aldrig bliver logget af det delt ark igen, når den overføre data

Hvad er indholdet af cellen?
produkt.Sheets(1).Range("Udsendt_budgopf3")

Den indeholder en dato.

Men når den overføre til det andet ark, så får den ikke logget en af igen.

Kan det være med til at påvirke fejlen?

Jeg tror ikke jeg kan hjælpe yderligere uden "hands on"

lukker den