Hallo allemaal,
Ik wil in een listbox 2 kolommen vullen met de volgende gegevens:
Regel 0, kolom 0: strNaam , intBedrag
Nu komt de strnaam uit een listbox met de volgenden code:
intAantal zijn de aanwezigen namen in de listbox
Nu haal ik met de volgende code de bedragen op van de eerste naam in de listbox:
Bij 1* krijg ik de melding: fout 9 tijdens uitvoering. Het subscript valt buiten bereik.
Als ik deze regel even weghaalt gaat het programma door maar vult niets in bij: 2*
Wie kan mij vertellen wat ik fout doe?
Groetjes, Peter
Ik wil in een listbox 2 kolommen vullen met de volgende gegevens:
Regel 0, kolom 0: strNaam , intBedrag
Nu komt de strnaam uit een listbox met de volgenden code:
Code:
sn = Sheets("Beslissingen").Range(strRange)
With CreateObject("System.Collections.ArrayList")
intLusTeller = intTeller
For Each cl In sn
If cl <> "" And Not .contains(cl) And ActiveSheet.Cells(intLusTeller, "H") = intZoek _
And ActiveSheet.Cells(intLusTeller, "E") = intJaar And ActiveSheet.Cells(intLusTeller, "L") > 0 Then .Add cl
intLusTeller = intLusTeller + 1
Next
.Sort
intTotaal = .Count
If intTotaal > 0 Then
lstBegunstigers.List = Application.Transpose(.toarray())
intAantal = lstBegunstigers.ListCount
End If
End With
Nu haal ik met de volgende code de bedragen op van de eerste naam in de listbox:
Code:
For Each cl In sn ‘sn is de Range bijv. “F3500:F4000”
If n = "" Then
n = 0
Else
n = n + 1
End If
If n > intAantal - 1 Then
Exit For
End If
strNaam = lstBegunstigers.List(n)
intLusTeller = intTeller ‘intTeller is de regel waar begonnen word
regel = intTeller
intBedragen = 0
Do While regel <= iRow ‘iRow is de laatste regel
If ActiveSheet.Cells(intLusTeller, "F") = strNaam Then
strJaar = Val(ActiveSheet.Cells(intLusTeller, "E").Value)
If strJaar = intJaar And ActiveSheet.Cells(intLusTeller, "H") = intZoek Then
intBedragen = intBedragen + ActiveSheet.Cells(intLusTeller, "N").Value
End If
End If
If n = intAantal Then
Exit For
End If
intLusTeller = intLusTeller + 1
regel = regel + 1
Loop
arNaam(n) = Array(strNaam)
1* arBedrag(n) = Array(intBedragen)
Next”
2* lstBegunstigers.List() = Array(arNaam(), arBedrag())
Als ik deze regel even weghaalt gaat het programma door maar vult niets in bij: 2*
Wie kan mij vertellen wat ik fout doe?
Groetjes, Peter