Archief - [PROG]VBA Excell zoeken verschil tss cells en range

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
g

gemas

Legacy Member
ik ben aan het het programmeren onder excel, ik moet een waarde zoeken in een excel blad.
wanneer hij een waarde gevonden heeft moet die nog altijd blijven verder zoeken.
Dus de bedoeling is dat de range wordt aangepast constant.
De formule er zo uitziet.

RowFound = Sheets("spc").Cells.Find(What:=wat, _
After:=Sheets("spc").Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).row

men kan ook in de formule de range("A1") verandere met bv range(Cells(1,1))
zo zou ik het graag willen. maar dan vind hij niks meer.

Snapt iemand mijn probleem en kan mij helpen?
d

daVinci

Legacy Member
Ik moet zeggen dat ik het probleem eigenlijk niet snap. Misschien een beetje concreter maken?
g

gemas

Legacy Member
ik heb een lijst, op 1 pagina
op een andere pagina heb ik een zoekveld
wanneer ik een waarde ingeef om naar te zoeken,
wordt in de lijst naar alles cellen gezocht waar die zoekwaarde instaat,
en copieerd die naar een ander blad.
dat is de eindbedoeling ervan
d

daVinci

Legacy Member
Kan je dan geen procedure schrijven met als inputparameters het bereik, en de zoekterm. Vervolgens kan je doorheen elke cell van het bereik loopen en wanneer de zoekterm gevonden is deze wegschrijven. Iets in de aard van:

Code: 
sub zoek(zoekwaarde as variant; zoekbereik as range)
dim rij, kolom as integer
rij =1 'initialisatie (aanpasbaar, evt. via parameter)
kolom=1 'initialisatie (aanpasbaar, evt. via parameter)
for each cell in zoekbereik
   if cell.value=zoekwaarde then
       cells(rij,kolom)=cell.value 'eigenlijk een beetje idioot want dan ga je       
                                          telkens (aantal x dat hij gevonden wordt) de 
                                          zoekterm wegschrijven. Dus die zoekwaarde 
                                          kan je vervangen doorhetgeen je wilt
        rij=rij+1 'om op devolgende rij te schrijven indien opnieuw gevonden 
                   wordt
   end if
next
end sub

wil je bv. tellen hoeveel die zoekwaarde voorkomt kunt ge een functie schrijven als de standaard functie niet aan jouw noden voldoet.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan