Beste forumleden,
Wij hebben de volgende code:
En:
Deze code functioneert goed echter wij hebben het idee dat er een manier is om deze code te vereenvoudigen en er zo voor te zorgen dat de code sneller loopt. Het zijn eenvoudige copy/paste codes maar we hebben ergens gelezen dat deze formules de uitvoeringssnelheid sterk benadelen.
Ook onze trim functie zou sneller ook moeten kunnen:
Onze vraag is dan ook: welke aanpassingen kunnen wij doorvoeren zodat de code eenvoudiger is en sneller wordt uitgevoerd?
Onze VBA kennis is vrij beperkt, het kan dus zijn dat wij er helemaal naast zitten, in dat geval horen wij het ook graag!
Alvast bedankt,
VBAn00b
Wij hebben de volgende code:
Code:
Range("J18:J250").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
En:
Code:
Range("B10").Copy
Range("B11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Deze code functioneert goed echter wij hebben het idee dat er een manier is om deze code te vereenvoudigen en er zo voor te zorgen dat de code sneller loopt. Het zijn eenvoudige copy/paste codes maar we hebben ergens gelezen dat deze formules de uitvoeringssnelheid sterk benadelen.
Ook onze trim functie zou sneller ook moeten kunnen:
Code:
Range("B18:B250").Select
Dim Cell As Range
On Error Resume Next
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
Cell.Value = Application.Trim(Cell.Value)
Next Cell
On Error GoTo 0
Onze vraag is dan ook: welke aanpassingen kunnen wij doorvoeren zodat de code eenvoudiger is en sneller wordt uitgevoerd?
Onze VBA kennis is vrij beperkt, het kan dus zijn dat wij er helemaal naast zitten, in dat geval horen wij het ook graag!
Alvast bedankt,
VBAn00b