mijn excel bestand wordt steeds groter en trager

[alletwee]

Hoi allemaal.
Ik gebruik een excel bestand met inmiddels 7 tabbladen.
De bestandsgrootte is inmiddels 6.4 MB.
Het duurt steeds langer om een bewerking doorgevoerd te krijgen.
Dit bestand staat in One drive en vandaaruit bewerken we het.
Niet perse in de online versie maar dan in de versie die gesycroniseerd is met de laptop.
Ik heb het idee dat er inmiddels een hoop "zooi" in de sheet zit die het langzamer maakt.
Ik heb een copie gedownload en onder een andere naam lokaal opgeslagen.
Deze copie heb ik per tabblad gekopieerd en toen met plakken special/waarde en getalnotatie vernieuwd.
Dat heeft tot gevolg dat het bestand nu nog "maar" 5.1 mb groot is.
Heeft iemand een idee/suggestie hoe ik het bestand sneller/kleiner kan maken of is wat ik gedaan het het beste?
Hoor graag jullie tips.
Alvast bedankt
PS, kan geen voorbeeld toevoegen ivm privacy

 

[snb]

Het bestand bevat een groot aantal verborgen afbeeldingen en voorwaardelijke opmaakregels.
Verwijder de inhoud van het bestand, sla het op en plaats het hier.

 

[alletwee]

Ok, alle inhoud gewist hier toegevoegd

Bericht automatisch samengevoegd: Vandaag om 10:36

toegevoegd

Bericht automatisch samengevoegd: Vandaag om 10:41

ik krijg melding dat het bestand te groot is???

 

[Senso]

Bestanden zippen en uitpakken​

Why my excel felt slow? How I finally fixed it​

 

[alletwee]

excel forum

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

weet niet of dit mag maar na zippen was het nog 3.7 mb en te groot

 

[snb]

splits 1 werkblad af en plaats dat hier.

 

[alletwee]

Oke, slechts 1 tabblad geselecteerd, leeggemaakt en hier geplaatst.
Heb je daar wat aan?

 

[edmoor]

Alle regels t/m 1048576 zijn in gebruik.
Als dat op meerdere werkbladen in je document zo is dan zal het inderdaad nogal vertraging opleveren.
In je voorbeeld document heb ik dat verholpen:

 

[snb]

Draai deze code en trek daaruit je conclusies:

Sub M_snb()
     MsgBox Sheet1.Shapes.Count
     MsgBox Sheet1.UsedRange.Address
     MsgBox Sheet1.UsedRange.FormatConditions.Count
     MsgBox Names.Count & vbLf & Names(1).RefersTo & Names(2).RefersTo
End Sub

 

[alletwee]

ik kom tot hier, geen ervaring in visual basic.
geeft foutmelding

 

[edmoor]

Vervang Sheet1 door Blad1.

 

[snb]

In het bestand dat je plaatste heet het werkblad Sheet1

 

[alletwee]

ik krijg dit soort meldingen waar ik vervolgens niet van snap

 

[emields]

dat verteld hoeveel cellen je nutteloos in gebruik hebt.