Optellen van waarden uit een listbox

[Goodlife07]

Hallo allemaal,

Allereerst ben ik nieuw hier!
Ik ben ook nog niet erg bekend met VB.

Mijn probleem:
Ik wil de getallen uit een listbox optellen en het antwoord in een label krijgen, ik heb echter geen idee hoe.

Wat info:
de listbox heet lstPrijs
wat erin gescherven wordt is pregelS

Om bijvoorbeeld de prijs van slippers te berekenen:

pregel = pslippers * 11
pregelS = Str(pregel)
lstPrijs.AddItem (pregelS)

hier komt dan een waarde uit, en deze waarde wil ik dus optellen bij de andere waarden die in de listbox staan.
Iemand een idee?

Alvast bedankt!

 

[AlexV]

pregelS.Caption = lstPrijs.Value * 11

Gr,
Alex,

 

[Goodlife07]

Dankje voor je reactie, maar dat was niet helemaal wat ik bedoelde.
Ik zal proberen wat duidelijker en simpeler te zijn.

Stel je hebt een listbox met daarin de "aantal" getallen
ik wil deze optellen en het antwoord naar een label schrijven.
Hoe tel ik nu deze getallen uit de listbox op?

Ik zal in de bijlage het bestand uploaden. (let niet op de rest, het is nog een beetje onduidelijk in dat bestand)
De prijzen uit de list lstPrijs moet worden opgeteld en geschreven worden naar lblUitvoer2

 

[AlexV]

Had niet goed gelezen.

For i = 0 To lstPrijs.ListCount
    MijnSum = MijnSum  + lstPrijs.List(i, 0)
Next
pregelS.Caption = MijnSum

Neem aan dat je hier wel wat mee kunt.

Gr,
Alex,

 

[Goodlife07]

helaas komt er deze foutmelding:

Ongeldig gebruik van Null

en er wordt aangegven dat de fout in de regel

    MijnSum = MijnSum + lstPrijs.List(i, 0)

zit..

hoe moet ik deze foutmelding interpreteren?

 

[AlexV]

Je heb dus maar 1 column in je listbox.

MijnSum = MijnSum + lstPrijs.List(i)

 

[Goodlife07]

Dezelfde foutmelding is nu verplaats naar 1 regel erboven, For i = 0 to lstPrijs ...
deze code heb ik nu:

Private Sub cmdTotaal_Click()
'declaratie van waarden
Dim i As Integer
Dim MijnSum As Double
Dim MijnSumS As String

'berekenen
For i = 0 To lstPrijs   '--foutmelding--
MijnSum = lstPrijs.List(i)
Next i

'schrijven naar scherm
MijnSum = Str(MijnSum)
lblUitvoer2.Caption = MijnSumS

End Sub

Nog meer ideeen misschien? echt bedankt alvast trouwens, want zonder hulp ga ik er niet uit komen vrees ik haha!:thumb:

 

[Interface]

Ik denk dat dit is wat je bedoelt...

Ik heb even het formuliertje een beetje aangepast, ik denk dat dit is wat je wil.

Omdat je naar mijn idee niet heel bekend met VBA heb ik de lijsten van de items in de comboboxen variabel gemaakt. D.w.z. de waarde die in de lijsten staan(van deze comboboxen), worden opgehaald uit het werkblad Admin. In dit werkblad kun je zelf items toevoegen en prijzen etc veranderen of toevoegen dan wel verwijderen.

Laat maar weten als er iets niets duidelijk is.

@ SNB ik weet dat dit een houtje touwtje manier is.... We zijn niet allemaal zo goed als jij...

 

[snb]

@ Interface,

OK. Ik zal er niet naar kijken......

 

[Interface]

:d