Objekt mittels String referenzieren
07.08.2020 09:22:16
thisisholy
ziel ist es ein Sub zu haben auf das verscheidene Comboboxen zugreifen sobald ich diese mit Enter aktiviere.
Dieses Sub soll die Comboboxen variabel mit Inhalt füllen.
Ich rufe das Sub bei Enter in die Combobox auf und übergebe ActiveControl. Am Ende des Sub bei ActiveControl.List kommt die Meldung "Objekt erforderlich". Kann ich die Combobox mittels des übergeben Strings irgendwie referenzieren?
Nachfolgend der aktuelle Code:
Private Sub cmbProdukt_Enter()
Call cmbEinlesen(ActiveControl.Name)
End Sub
Sub cmbEinlesen(ActiveControl)
Dim wb As Workbook
Dim ws As Worksheet
Dim i, spalte As Integer
Dim ziel As ComboBox
Set wb = ActiveWorkbook
Set ws = Sheets("DropDownMenue")
Me.Controls(ActiveControl).Enabled = True
MsgBox ActiveControl
If ActiveControl = "cmbProdukt" Then spalte = 1
With ws
i = 2
Do Until .Cells(i, spalte) = ""
i = i + 1
Loop
i = i - 1
ActiveControl.List = .Range(.Cells(2, spalte), .Cells(i, spalte)).Value
End With
Set wb = Nothing
Set ws = Nothing
End Sub
Anzeige