Kopier formler

Prøv med denne:

Hej tjacob!

Det var lige hvad jeg skulle bruge - smid et svar....

Tak for hjælpen
Lars

Svaret kommer her...

Hej.... glemte lige i farten...

Er der en smartere måde hvorpå du kan fylde formler ned som ikke tager så meget hukommelse....arbejder noget langsomt med de tilgængelige ressourcer....

mvh Lars

Det kan måske hjælpe lidt at slå screenupdating fra, men derudover kan jeg ikke rigtig se hvordan:

Sub FyldUd()

    Application.ScreenUpdating = False
    Dim rk As Long, ko As Long
    rk = Range("A2").End(xlDown).Row
    ko = Range("B2").End(xlToRight).Column
    Range(Cells(2, 2), Cells(2, ko)).Select
    Selection.AutoFill Destination:=Range(Cells(2, 2), Cells(rk, ko)), Type:=xlFillDefault
    Cells(1, 1).Select
    Application.ScreenUpdating = True

End Sub

Hej...

Har slået skærmopdateringen fra, men ikke den store effekt.  Forsøger af anden vej, at få formlerne ned i kolonnerne...
Men tak for kommentaren.
Mvh Lars

Du kan også prøve med:

Application.Calculation = xlCalculationManual  i toppen

og

Application.Calculation = xlCalculationAutomatic  i bunden