Thema: Combobox erscheint bei .Dropdown ausserhalb der Userform

Hallo allerseits

In einer Userform wird eine Combobox während der Initialisierung geladen und dann wird mit Combobox.Dropdown die Combobox aufgeklappt. Die erscheint aber nicht innerhalb der Userform sondern in der oberen linken Ecke des Bilschirms.

Was ist da zu tun?

Klick auf "Userform anzeigen" in der angehängten Arbeitsmappe.
https://www.herber.de/bbs/user/178883.xlsm
Gruss
Jürgen

Hallo Jürgen,
verschiebe es ins Activate.

Private Sub UserForm_Activate()

      frm_ziel_suche.cbx_name.DropDown

End Sub

Gruß, Uwe

Hallo Jürgen,

und dann so:

Private Sub UserForm_Activate()

      Me.cbx_name.DropDown

End Sub

da dieser Code in einem Klassenmodul steht, verweist 'Me' automatisch auf das Userform-Objekt, ohne seinen richtigen Namen zu nennen.

Gruß von Luschi
aus klein-Paris

Danke allerseits

es funktioniert. Das Problem geht in die nächste Runde mit zwei Comboboxen.

In Combobox cbx_name wird nun ein Eintrag ausgewählt. Das stösst Sub cbx_name_Change() an, die die Combobox cbx_zwei füllt. Nun soll hier der DropDown Befehl ausgeführt werden. Wie muss das gehen?

https://www.herber.de/bbs/user/178886.xlsm

Gruss und Gute Nacht
Jürgen

Hallo Jürgen,

hier muß Trick 17 helfen: https://www.herber.de/bbs/user/178888.xlsm

Gruß von Luschi
aus klein-Paris

PS: Begründung siehe Vba-Code

Moin Luschi,
ich hab deinen trick 17 mal ausprobiert. Komischerweise zeigt sich hier ein Nebeneffekt, zumindest auf meinem System. Wenn der sendkeys Befehl ausgeführt wird, bekomme ich eine Anzeige das mein Numlock aus sei. Doch der ist nicht ausgeschaltet. Sehr merkwürdig.

Hallo Ralf,

- Verluste gibt es eben überall, aber Sendkeys sollte man nur mit Bedacht einsetzen und Wissen, was man da tut
- ganze Tastenanschlags-Kombinationen würde ich damit nicht organisieren
- früher habe ich damit das Vba-Kennwort aufgehoben
- dann Klassen- und normale Module ersetzt
- und das Vba-KW wieder gesetzt
- damit ersparte ich mir Dienstreisen zu anderen BTs (AnyDesk, TeamViewer & Co waren noch Lichtjahre entfernt))
- aber an der Stelle hat M$ 1 Riegel vorgeschoben, so das dieser Flow nicht mehr klappt
- unter Win-Vista hatte M$ (fast erfolgreich) versucht SendKey aus Vba und VB6 zu verbannen
- doch mit der Einbindung von WinScript in Vba stand die Tür von Sendkeys wieder weit offen
- es gibt bei YouTube jede Menge Tipps zu diesem Problem (auch aus neuerer Zeit)

Gruß von Luschi
aus klein-Paris

Hallo miteinander,

ich würde es so machen:

ins Userform:

Private Sub cbx_name_Change()

    With cbx_zwei

      .Clear

      .AddItem "11111111111111"

      .AddItem "22222222222222"

      .AddItem "22222222222222"

    End With

    Application.OnTime Now + 0.000005, "DD"

End Sub

in ein allgem. Modul:

Sub DD()

    With frm_ziel_suche

        .cbx_zwei.DropDown

        .cbx_zwei.SetFocus

    End With

End Sub

ggf. muss man noch die Laufzeit anpassen.

Gruß Uwe

Hallo Uwe

danke für den Tip, werde ihn heute Abend ausprobieren, Antwort kommt dann morgen

Gruss
Jürgen

Hallo
Entschuldigung, dass die Antwort nicht schon am Samstag kam, aber als bestandener Rentner hat man einfach nicht mehr so viel freie Zeit ;-)

Hier also die Antwort: es funktioniert bestens. Vielen Dank an die Helfer!

Gruss
Jürgen