@ emields,
Ik ben ook eens naar je "andere opzet" gaan kijken, en de enige conclusie kan zijn:
Mocht het je bedoeling zijn Luc (en andere lezers) in de war te brengen, dan ben je daar weerom weergaloos in geslaagd.
Deze 2 regels code mogen wat wij betreft worden ingekaderd:
Range("C3").Resize(x, 7).Replace What:="0", Replacement:="", LookAt:=xlWhole
Range("c3:i" & x).SpecialCells(xlCellTypeBlanks).Value = 0
Wat je in de eerste regel doet wordt in de tweede
volledig teruggedraaid!!
Waardoor je opzet natuurlijk
niet wordt gerealiseerd!!
Ik snap je opzet wel. En die is ook mogelijk met de eerste regel (en
enkel de eerste regel), maar dan moet je wel je variabele "Min" reduceren (per speler!) tot CountA in de zoekrange, anders krijg je een fout (of had je dat gezien en daarom de tweede regel toegevoegd?)
Waar is de tijd dat jij aan TS vroeg:
Zeg je dat op het eerste zicht of heb je het geprobeerd met 7 of 10 weken ingevuld?
En jij, heb jij je eigen code dan niet geprobeerd?