Hulp bij Find programmatie

[PepijnWest]

Hallo

Kan er iemand een handje helpen bij mijn probleem?
Ik ben een programmatie aan het maken om de hoeveelheid van 'bestelde materialen' van projecten hier rapper te kunnen bijhouden.

Maar ik krijg mijn Find programmatie niet af. Ik struikel telkens over de zelfde regel.
Het is de bedoeling dat Excel een opgegeven materiaal zoekt en er dan de gebruikte hoeveelheid bijzet of eventueel bij optelt als er al een deel van verbruikt is.

Zie voorbeeldje in bijlage + wat meer uitleg ook

Alvast bedankt

Pepijn

 

[Hoornvan]

PepijnWest,

Volgens mij gaat het bij deze regel fout.

If ListBox1.Selected(J) Then

Als je in VBA er met de cursor overheen ga dan blijft hij leeg.

If ListBox1 = Selected(J) Then

Als je dit ervan maakt en je gaat met de cursor over Listbox1 dan heeft hij wel inhoud.
Hij slaat hierna het gehele stuk code over, dus moet je bij de aangegeven regel de fout zoeken denk ik, (als amateur)

 

[PepijnWest]

Ik heb het eens getest.
Maar hij heeft daar een foutmelding...

Volgens mij moet de fout iets meer onderaan gezocht worden (denk ik )

Ik zal het nog eens proberen...

Alvast bedankt

 

[Hoornvan]

Ik heb een breekpunt gemaakt bij For J = 1 to ....
Ik heb tussen listbox en selected een = gezet.
De macro laten lopen en dan stopt hij bij het breekpunt, dan met F8 ga je telkens een stap verder.
Als de regel If Listbox1 = Selected(J)Then geel is ga je met de cursor over Listbox1, nu zie je waar hij mee gevuld is.

Hij geeft bij mij daar ook een fout.
Als je nu de = weg haald en de punt er weer neer zet en je doe de zelfde handelingen zal je zien dat Listbox1 weergeeft = Onwaar

Als je voor de regel If listbox1.Selected een ' zet dan loopt de macro door tot na Do (weer een fout melding)

Verder heb ik er niet echt verstand van.

 

[PepijnWest]

Dag Hoorvan

Is uiteindelijk toch gelukt.
Ik ben eens opnieuw begonnen en ik heb het voor elkaar gekregen.

Bedankt voor uw hulp


Groeten