Hallo Ron1,

Kan iemand mij op weg helpen

Met veel plezier 

eerst moet je weten hoeveel rijen er in kolom1 van Blad1 in gebruik zijn.

Dim aantal_rijen als intiger

aantal_rijen =sheets("Blad1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
-  "Cells.Rows.Count, 1" telt alle rijen in kolom A (de 1 =kolom A; de eerste kolom)
-  "End(xlUp)" gaat van de door "Cells.Rows.Count, 1" laatst gevonden cel (A65536) opwaarts (xlUp) zoeken naar de eerste, niet-lege cel.
-  "Row" gaat uiteindelijk de waarde van de overeenkomstige rij op de gevonden plaats aan de variabele "aantal_rijen" geven.

Aantal_rijen is nu een variabele waarde die het nummer geeft van de laatste niet-lege rij in kolom A van Blad1. Hiermee kan je het aantal gebruikte cellen, of het aantal gegevens in de lijst in Blad1 bepalen. Begint je lijst op Rij 3, dan heb je Aantal_rijen - 3 aantal gegevens.

---

Het volgende is de lus.
Ik weet niet juist welk soort berekening je wilt toepassen op de getallen in Blad1,
maar je lus moet ergens iets in de aard van dit worden:

For getalBlad1 = 3 to aantal_rijen
[doe een bewerking]
[Zet het resultaat van die bewerking bvb in Blad2, Cel ("A" & GetalBlad1)]
Next getalBlad1

---

Als je hier als eens over nadenkt, een voorbeeldbestandje maakt met 2 werkbladen, enkele getallen in Blad1 en een formule (of wat je wilt berekenen) in Blad2, mogelijk een macro met gebruik van de codes die ik je hierboven geef (werkend of niet), dan kunnen we al eens verder kijken.


SoftAid