laaaangsom makro

Du kan starte med at sætte disse linjer ind i hhv. begyndelsen og slutningen af makroen. Hvis det ikke er nok, skal selve makroen nok laves om.

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
.
.
.
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

det bruger jeg allerede ændrer intet

Det vil måske hjælpe mere hvis vi forstå mere om det. Et demo ark uploadet så vi kan se?

Mit forslag med den viden vi har nu er at få fjernet formler, måske ved at bygge disse via en anden makro og så ellers køre "flade" værdier.

Har fundet ud af at flette forespørgsler i stedet for alt det loplslag som gør det hele tungt

Der er nogle forespøgsel og en fletning af forespørgsler
for at ende op med en pivot på baggrund af de flettede data


Meen
Nu har skåret helt ind
    ActiveWorkbook.RefreshAll

På en knap

Det er lynhurtigt og selve forespørglerne opdaterer fin

Men skal trykke to gange på knappen for at pivot tabellen opdaterer????

LN