Hoi Johan,
Dan zit je m.a.w. nog steeds aan meer dan een volle seconde, wat 'afschuwelijk' lang is voor zo een stukje code.
Ik kon het bijgevolg niet laten en heb je code (nog steeds de oude) in een leeg document geplakt, en links en rechts wat waarden ingevuld op de diverse tabbladen zodanig dat ik ze toch werkend kreeg.
Op de koop toe zorgde ik ervoor dat elke mogelijke regel ook wordt uitgevoerd, 't is dus een "gedeelde Schipholrit met fooi en commissie" geworden, met de bedoeling dus om de code zoveel mogelijk 'werk' te geven.
Met screenupdating doet ze er 0,032 seconden over, en zonder 0,014.
De enige voorlopige conclusie luidt dus : "vreemd"
En nu ik toch bezig was ook even naar je 'nieuwe' code gekeken.
Die moet fouten geven, tenzij wat je hier publiceerde ondertussen gecorrigeerd is (?)
Ik zie daar ergens staan
OM = Array(OM1, OM2, OM3, OM6, OM4, OM5)
For ii = 1 To 6
If OM(ii) = "" Then GoTo Volgende
Het eerste element in een array heeft index 0, dus als ii = 6 zal de code flippen.
Met X = Array... zie ik overigens ongeveer hetzelfde staan.
Los daarvan, maar dat heb ik niet meer getest, moet die ook ongeveer mijn snelheid halen.
Ben dus heel nieuwsgierig hoe het bij jou verder evolueert...
Groeten,
pitufo