Reference i Excel

Umiddelbart vil jeg tror, at dette løser problemet:

With ActiveSheet.Range("D3")
.FormulaR1C1 = "=IF(RC[-1]>0,RC[-3],"""")"
.AutoFill Destination:=Range("D3:D182"), Type:=xlFillDefault
End With

Problemet med din kode er, at ActiceCell ikke nødvendigvis er Range("D3"), fordi markøren ikke nødvendigvis er her, men f.eks. udmærket kan være placeret i celle D2 (afhængigt af f.eks. den øvrige kode).

Jeg prøver det lige af - det med markøren forstår jeg ikke rigtigt?

Kunne få det til at virke, men skulle tilføje:

Range("D3:182").Select

herefter dit kodestykke, ændret i første linje

With ActiveSheet.Range("D3:182")
.FormulaR1C1 = "=IF(RC[-1]>0,RC[-3],"""")"
.AutoFill Destination:=Range("D3:D182"), Type:=xlFillDefault
End With

Tak for hjælpen, lægger du et svar og god weekend.

Fint. Og god weekend også til dig.