Übergabe Objekt in anderes Makro
13.02.2014 20:34:31
SteffenS
ich habe eine Userform mit einer ComboBox und möchte gern in einer Funktion abfragen ob ein bestimmter Wert bereits enthalten ist.
Hierzu habe ich folgenden Code erstellt:
Private Function cbox_val(aobj As ComboBox, mc As String) As Boolean
Dim i As Long
For i = 0 To aobj.ListCount
If aobj.ItemData(i) = mc Then
cbox_val = True
Exit For
End If
Next i
End Function
Leider weiß ich nicht, wie ich die Listbox aus von einem in ein anderes Makros übergeben kann.
Mit
Private Sub UserForm_Initialize()
'Name der Combobox hdl_asw
If cbox_val(hdl_asw, mc) = False Then
End IF
End Sub
bekomme ich einen Fehler
Habt ihr eine Idee wie ich dies hinbekomme
Anzeige