Objektübergabe
20.05.2009 10:39:50
Marco
ich möchte ein Objekt übergeben, aber er springt mit der Fehlermeldung "Objekt erforderlich" raus
In Userform:projectoverview gibt es eine Listbox:projectlist
In einem Modul habe ich eine Funktion welche mehrere listboxen bedienen müssen. Deswegen muss ich die aktuelle Listbox als Objekt übergeben.
Der Aufruf der Funktion erfolgt auch in einem Modul:
Hab es folgendermaßen versucht:
Im Modul 1:
Sub eins
' Neue Variable deklariert
Dim list_temp As Object
' Die aktuelle Liste zugewiesen
Set list_temp = projectoverview.projectlist
' Aufruf der zweiten Funktion
load_list (list_temp)
End Sub
Im Modul 1 weiter unten:
Sub load_list(listname As object)
Dim i As Long
Dim j As Long
ReDim project_fit(UBound(listname.List, 1), UBound(listname.List, 2) - 1) 'Es wird fä _
lschlicherweise eine leere Spalte zuviel erzeugt
For i = 0 To UBound(listname.List, 1)
For j = 0 To UBound(listname.List, 2) - 1 'Es wird fälschlicherweise eine leere Spalte _
zuviel erzeugt
project_fit(i, j) = listname.List(i, j)
Next j
Next i
End Sub
beim Aufruf des 2. Subs tritt der Fehler auf