Problem mit Argument ByRef unverträglich

Hallo liebe VBA Gemeinde
In einem Userform habe ich eine ListBox2 mit Namen. Jeder Name entspricht der Überschrift einer Spalte in sheet("tabelle1"). Beim klicken auf einen eintrag in der Listbox soll in einer comboBox die Autofilter einträge ausgegeben werden. dafür habe ich folgenden code:
--------------------------------------------------------------------------
Function myList(sh As Worksheet, lngCol As long)
Dim vntList(), n As Long, vntC, vntTmp
Dim myCol As New Collection
With sh
ReDim vntList(1 To 1, 1 To Application.CountA(.Columns(lngCol)))
vntTmp = .Range(.Cells(1, lngCol), .Cells(Rows.Count, lngCol).End(xlUp))
End With
For Each vntC In vntTmp
Err.Clear
On Error Resume Next
myCol.Add vntC, CStr(vntC)
If Err.Number = 0 Then
n = n + 1
vntList(1, n) = vntC
End If
Next
ReDim Preserve vntList(1 To 1, 1 To n)
myList = WorksheetFunction.Transpose(vntList)
End Function

----------------------------------------------------------


Private Sub ListBox2_Click()
For LoI = 0 To Abfrage.MultiPage1.Pages(1).ListBox2.ListCount - 1
If Abfrage.MultiPage1.Pages(1).ListBox2.Selected(LoI) = True Then
SpalteNr = LoI + 1
ComboBox1.List = myList(Sheets("Tabelle1"), SpalteNr)
End If
Next
End Sub

-----------------------------------------------------
Die function mylist läd die autofilter einträge in die combobox FUNZT !
Aber die function spreche ich so an:
ComboBox1.List = myList(Sheets("Tabelle1"), SpalteNr)
dann kommt die Fehlermeldung
Argument ByRef unverträglich
Wenn ich aber :
ComboBox1.List = myList(Sheets("Tabelle1"), 2)
dann funktioniert es und in der combobox stehen die autofiltereinträge aus spalte 2
Kann mir jemand helfen? Die function mylist habe ich hier im forum gefunden. leider unkommentiert.
kann mir vielleicht jemand beim verstehen helfen was da genau abgeht. steh grad zeimlich auf dem schlauch.
Vielen Dank
gruß
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
dimensionier mal "SpalteNr" auf die gleiche Weise wie den Parameter, an den es übergeben werden soll: "lngCol", nämlich als LONG
dadurch daß du "SpalteNr" nicht dimensoniert hast, wird automatisch die bei der Zuweisung die passende Variablenart gewählt, und das ist meistens bei Ganzzahlen INTEGER.
bei der normalern Parameterübergabe wird die Variable ByReference übergeben, dh. die ganze Variable, das funktioniert natürlich nur bei gleichen Variablentypen, nicht bei unterschiedlichen.
oder du musst explizit angeben, daß nicht die ganze Variable, sondern nur der Wert an die neue Funktion übergeben wird, durch den Zusatz "ByVal"


Function myList(sh As Worksheet, ByVal lngCol As long)

Gruß, Daniel

Sub Test() Dim x As Long x = 2 Debug.Print "-- ByVal --" Debug.Print "x vorher: " & x Call ZweiAddierenByVal(x) Debug.Print "x nachehr: " & x x = 2 Debug.Print "-- ByRef --" Debug.Print "x vorher: " & x Call ZweiAddierenByRef(x) Debug.Print "x nachehr: " & x End Sub

Function myList(sh As Worksheet, lngCol As Long) Dim vntC, vntTmp Dim myDic As Object Set myDic = CreateObject("Scripting.Dictionary") With sh vntTmp = .Range(.Cells(1, lngCol), .Cells(Rows.Count, lngCol).End(xlUp)) End With For Each vntC In vntTmp If Not myDic.exists(vntC) Then myDic.Add vntC, CStr(vntC) End If Next myList = myDic.Keys End Function

Beliebteste Forumthreads (12 Monate)

Problem mit Argument ByRef unverträglich

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit Argument ByRef unverträglich

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread