Vba Combobox

Computer: Software & Programmierung Visual Basic
#1

Hallo

Ich habe mehrere Comboboxen die auf die Definierten Namen der Excel Datei zugreifen. Mit verschiedenen Namen der Comboxen.
Wollte ich die Comboboxen über eine Funktion laden lassen.
Beim vergeben des Namen der Combobox (Set CBoxName = ComboBox(„MaBea“))
kommt Objekt Variable nicht vergeben.
Hat jemand ne Idee wie man den Namen der Box de Funktion übergeben kann?

 Dim wbQuelle As Workbook
 Dim CBoxName As ComboBox
 Set wbQuelle = Workbooks(ThisWorkbook.Name)
 Set CBoxName = ComboBox("MaBea")

 Call Liste\_Laden(wbQuelle, CBoxName)

Public Function Liste\_Laden(wbQuelle, CBoxName)

 For Each xName In wbQuelle.Names
 If InStr(1, LCase(xName.Name), LCase("!")) = 0 And \_
 (InStr(1, LCase(xName.Name), LCase("Druckbereich")) = 0) Then
 Me.CBoxName.AddItem (Replace(xName.Name, "\_", " "))
 NameValue2 = xName.RefersTo
 End If
 Next
 Me.CBoxName.ListIndex = 0
End Function

LG Fred

#2

Hallo Fred,

Ich habe mehrere Comboboxen

wo? UF oder Blatt?
In welchem Modul steht der Code?

Wollte ich die Comboboxen über eine Funktion laden lassen.

Ich würde da eine Sub nehmen.

Beim vergeben des Namen der Combobox (Set CBoxName =
ComboBox(„MaBea“))

CB auf Blatt, Code in Standardmodul:

Sub test()
Dim cBoxName1 As ComboBox, cBoxName2 As OLEObject
Set cBoxName1 = Worksheets(1).ComboBox1
Set cBoxName2 = Worksheets(1).OLEObjects(„ComboBox1“)
MsgBox cBoxName1.Name
MsgBox cBoxName2.Name
End Sub

Gruß
Reinhard

#3

wo? UF oder Blatt?
In welchem Modul steht der Code?

UF

Ich würde da eine Sub nehmen.

Warum?

CB auf Blatt, Code in Standardmodul:

UF

Gruß
Fred