Ich habe lange rumprobiert aber es will nicht gelingen...
... Wie kann ich ein Objekt an eine Funktion übergeben?
Hier der Aufruf
Private Sub CommandButton1_Click()
Call createarray("Tabelle1", 2, 1, 35, Userform1.ListBox1)
End Sub
Hier die FunktionFunction createarray(Tabelle, abZeile, abSpalte, letzteSpalte, ctl as control)
Dim vntArray As Variant
Dim wksq As Worksheet
Dim lngspalte As Long
Dim lngLetzteZeile As Long
Dim lngabzeile As Long
lngabzeile = abZeile
lngspalte = abSpalte
Set wksq = Sheets(Tabelle)
lngLetzteZeile = wksq.Cells(wksq.Rows.Count, lngspalte).End(xlUp).Row
lngLetzteSpalte = letzteSpalte
vntArray = wksq.Range(wksq.Cells(lngabzeile, lngspalte), wksq.Cells(lngLetzteZeile, lngLetzteSpalte)).Value
cnt.List = vntArray
End Function Hoffe das, dass verständlich ist?!
Liebe Grüße
Dirk