Kald af funktion
Hej jeg forsøger at kalde med nedenstående:Dim KolonneStart
Dim ComboboxNavn
KolonneStart = 8
ComboboxNavn = "ComboBox2"
Call Funktioner.DataInCombobox(ComboboxNavn, KolonneStart)
der kaldes følgende funktion:
Public Sub DataInCombobox(ComboboxNavn, KolonneStart)
Dim i, j, t
Dim RowNumber
Dim objListRows As ListRows
Set objListRows = ActiveWorkbook.Worksheets("Hoved ark").ListObjects("Liste1").ListRows
RowNumber = objListRows.Count
Dim unikke(65000)
Dim unikke2(65000)
t = 1
Worksheets("Hoved ark").Activate
For i = 1 To RowNumber
unikke(i) = Cells(i + 3, KolonneStart)
Next
For i = 1 To RowNumber
For j = i + 1 To RowNumber
If unikke(j) = unikke(i) Then unikke(j) = ""
Next
Next
For i = 1 To RowNumber
If unikke(i) = "" Then GoTo om
unikke2(t) = unikke(i): t = t + 1
om:
Next
For i = 1 To t
If unikke2(i) <> "" Then
ComboboxNavn.AddItem unikke2(i)
End If
Next
End Sub
Der kaldes fra en userform til module hvor jeg har funktionen til at ligge; kan man overhovedt det?
men det ser ud til at problemet er omkring det at skulle kalde comboboxen med et specifikt navn der driller
