fout met tellen van verschillende elementen

[bifi]

hello

Ik heb een programma geschreven waar ik mijn verschillende elementen kan vinden enzo. Maar op het moment dat ik meer als 20 waarden heb geeft die een negatief getal. Ik vind het probleem maar niet. Hieronder is mijn programma.

Hopelijk kan er iemand mij helpen

groetjes

Sub test()


Dim i, j, y, z As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim punten_array() As String
Dim aantal_elementen As Integer
Dim aantal_verschillende_elementen As Integer


ReDim punten_array(1)
i = 1
Do While Cells(i, 1) <> ""
x_value = Cells(i, 1)
punten_array(i) = x_value
ReDim Preserve punten_array(i + 1)
i = i + 1
Loop

j = 1
Do While punten_array(j) <> ""
MsgBox (punten_array(j))
j = j + 1
Loop

'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen - 1) & " ")

'Detectie van het aantal verschillende waarden in onze array
aantal_verschillenden_elementen = UBound(punten_array)
For y = 0 To (UBound(punten_array))
For z = y + 1 To (UBound(punten_array))
If (punten_array(y) = punten_array(z)) Then
aantal_verschillenden_elementen = aantal_verschillenden_elementen - 1
End If
Next z
Next y

MsgBox ("Aantal verschillende elementen:" & Str(aantal_verschillenden_elementen + 1))

End Sub

 

[bifi]

ik heb het juist gevonden.

 

[Wigi]

Vertel de forumleden dan maar hoe.

Zet je code in het vervolg ook tussen zgn. code tags. Selecteer de code en klik op het # teken.