Tweet
Hallo zusammen,
ich habe die Aufgabe, ein Excelsheet anzulegen, bei dem der Anwender durch drücken eines Buttons ComboBoxen anlegen kann.
durch die folgende Prozedur funktioniert das auch. Dieser ComboBox kann ich auch einen Namen geben und Werte mit AddItem eingeben.
Da der Anwender jedoch mehrere ComboBoxen in einem Exsheet anlegen kann muss ich herausfinden welche ComboBox gerade aktiviert ist, damit ich die Einträge vornehmen kann.
Die Prozeduren ComboBox1_Change bzw. ComboBox1_Click... existieren in meinem Code jedoch nicht, da die ComboBoxen ja erst während der Laufzeit angelegt werden. Ich kann nicht schon vorher Comboboxen mit Code anlegen und diese auf Visible = false setzen, da ich überhaupt nicht weiß wieviel ComboBoxen angelegt werden sollen.
Wie kann ich jetzt herausfinden, welche ComboBox gerade aktiviert ist oder ob überhaupt eine aktiviert ist. Eine Methode getFocus habe ich nicht gefunden und activate bezieht sich auf das Formular/excelsheet und nicht auf einzelne ComboBoxen.
Über jede Antwort währe ich dankbar
liebe Grüße
Susi
Prozedur
Sub Button1_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo Box.1", Link:=False, _
DisplayAsIcon:=False, Left:=303, Top:=61.5, Width:=85.5, Height:= 69.75).Select
End Sub
ich habe die Aufgabe, ein Excelsheet anzulegen, bei dem der Anwender durch drücken eines Buttons ComboBoxen anlegen kann.
durch die folgende Prozedur funktioniert das auch. Dieser ComboBox kann ich auch einen Namen geben und Werte mit AddItem eingeben.
Da der Anwender jedoch mehrere ComboBoxen in einem Exsheet anlegen kann muss ich herausfinden welche ComboBox gerade aktiviert ist, damit ich die Einträge vornehmen kann.
Die Prozeduren ComboBox1_Change bzw. ComboBox1_Click... existieren in meinem Code jedoch nicht, da die ComboBoxen ja erst während der Laufzeit angelegt werden. Ich kann nicht schon vorher Comboboxen mit Code anlegen und diese auf Visible = false setzen, da ich überhaupt nicht weiß wieviel ComboBoxen angelegt werden sollen.
Wie kann ich jetzt herausfinden, welche ComboBox gerade aktiviert ist oder ob überhaupt eine aktiviert ist. Eine Methode getFocus habe ich nicht gefunden und activate bezieht sich auf das Formular/excelsheet und nicht auf einzelne ComboBoxen.
Über jede Antwort währe ich dankbar
liebe Grüße
Susi
Prozedur
Sub Button1_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo Box.1", Link:=False, _
DisplayAsIcon:=False, Left:=303, Top:=61.5, Width:=85.5, Height:= 69.75).Select
End Sub