array vullen o.b.v. gegevens uit 1 kolom

Status
Niet open voor verdere reacties.
L

lieke66

Gebruiker
Lid geworden
29 jul 2016
Berichten
47
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.

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!
 
Code: 
sub M_snb()
  sn=columns(2).specialcells(2)

  for each it in sn
    if instr(c00 & "_","_" & it & "_")=0 then c00=c00 & "_" & it
  next

  msgbox c00 & vblf & ubound(split(c00,"_"))
End sub
 
Laatst bewerkt:
Bedankt voor je snelle reactie!

Helaas begrijp ik er eigenlijk niks van, daarnaast loopt ie ook op de eerste regel al vast.
Kun je iets meer uitleg geven?
 
Verwijder 'Option Explicit' bovenaan de module, anders 'sn, it en c00' declareren.

Verander ook 'nexct' in 'next' in de code.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan