Goedemiddag,
Ik ben sinds kort aan het VBA-en en loop tegen iets aan. Ik hoop dat jullie me verder kunnen helpen.
Ik wil graag #unieke nummers weten in een kolom.
In de MsgBox krijg ik nu "2" te zien, dat klopt.
Maar nu wil ik deze Array automatisch laten vullen met de gegevens in een kolom (aantal rijen varieert).
Hoe moet ik dit bewerkstelligen?
Dank alvast!
Ik ben sinds kort aan het VBA-en en loop tegen iets aan. Ik hoop dat jullie me verder kunnen helpen.
Ik wil graag #unieke nummers weten in een kolom.
Code:
Function GetUniqueCount(aFirstArray()) As Long
Dim arr As Collection
Set arr = New Collection
On Error Resume Next
For Each a In aFirstArray
arr.Add a, CStr(a)
Next
On Error GoTo 0
GetUniqueCount = arr.Count
End Function
Sub MAIN()
Dim inpt()
inpt = Array(1, 2, 1)
MsgBox GetUniqueCount(inpt)
In de MsgBox krijg ik nu "2" te zien, dat klopt.
Maar nu wil ik deze Array automatisch laten vullen met de gegevens in een kolom (aantal rijen varieert).
Hoe moet ik dit bewerkstelligen?
Dank alvast!