VBA / VB6 - Erzwinge das Öffnen einer ComboBox

In Kombination mit VBA bildet Excel ein leistungsstarkes Tool zur Erstellung individueller und automatisierter Datenanalyselösungen. VBA verfügt über integrierte Steuerelemente wie ComboBox, mit denen Benutzer aus einer bereits ausgefüllten Liste auswählen oder ihre eigenen Eingaben vornehmen können. Sie können zwei ComboBoxen mithilfe der SetFocus-Methode in einem benutzerdefinierten Code verknüpfen . Danach kann der Benutzer einen anderen Code ausführen, der den von einer ComboBox zurückgegebenen Schlüsselcode verwendet, um den anderen zu initialisieren. Diese Funktion hilft dem Programmierer, einen Code so einzurichten, dass nach einer Auswahl in ComboBox1 die zweite ComboBox automatisch geöffnet wird.

Um das Öffnen einer ComboBox zu erzwingen, gibt es folgende Funktion ...

 ComboBox1.DropDown

Aber ... dafür haben wir den ComboBox-Fokus, und wenn der Befehl von einem anderen Steuerelement kommt, wird er nicht geöffnet.

Um eine andere ComboBox zu öffnen, solltest du hier einen Trick anwenden:

Platzieren Sie 2 ComboBox in einem Arbeitsblatt oder einer UserForm, und bezeichnen Sie sie jeweils als ComboBox1 und CombBox2
Verwenden Sie den folgenden Code, um die beiden ComboBox zu verknüpfen:

 Private Sub ComboBox1_Change () '============================================================================================== VB6 ======== 2 'ComboBox2.SetFocus' ================================= ======== SendKeys "^ (F4)" End Sub Private Sub ComboBox2_KeyDown (ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Wenn KeyCode = 16, dann ComboBox2.DropDown End If End Sub

Durch Löschen von Zeile 1 oder 2, je nach Standort der ComboBox.

Ergebnis: Wenn Sie auf einer ComboBox 1 eine Auswahl treffen, wird die zweite automatisch geöffnet.

Beispiel für Excel 97 - 2003 herunterladen