Office: (Office 2019) In Listbox nach Auswahl die Auswahl löschen

Hallo,
in einer Listbox wird ein Eintrag gewählt. Dieser Eintrag wird in eine Textbox kopiert. Anschliessend soll die Markierung in der Listbox entfernt werden. In der Beispieldatei habe ich 2 Varianten, Test 1 und Test 2. In Test 1 wird der ausgewählte Eintrag per Button in das Textfeld kopiert, anschließend wird in der Listbox die Markierung entfernt. Das funktioniert alles.
In Test 2 soll der Handler für das Change Event der Listbox den Eintrag kopieren und danach die Markierung entfernen. Das Entfernen der Markierung funktioniert nicht. Kennt jemand einen Weg wie die Markierung automatisch entfernt wird?
Frohe Ostern!

 

Hallo wilhelm,

so:

Code:

Private Sub btn_CopySelectedEntry_Click()
    If Me.lst_LB_Test.ListIndex = -1 Then Exit Sub
    Me.txt_LB_SelectedEntry = Me.txt_LB_SelectedEntry & Me.lst_LB_Test
        lst_LB_Test.ListIndex = -1
End Sub

Gruß Uwe

 

Hallo Uwe,
da habe ich mich wohl nicht richtig ausgedrückt. Mir geht's und die Variante Test2. Dort soll nach Auswahl der Zeile in der Listbox die ausgewählte Zeile kopiert werden (das funktioniert) und dann soll die Markierung in der Listbox entfernt werden. Es gibt also keine extra Button dafür. Hast Du dafür auch eine Idee?

 

Hallo,

da gibt es 2 Wege. 1. Weg listbox neu laden
Dazu packe das Laden der Listbox in eine eigene Prozedur und Verweise im Initialize des Userform aus diese Prozedur
und ebenso am Ende der Change Ereignisprozedur der Listbox.
2. Weg:

Code:

Private Sub lst_LB_Test_Change()
    If blIgnoreEvent = True Then Exit Sub
    Me.txt_LB_SelectedEntry = Me.txt_LB_SelectedEntry & "Ch" & Me.lst_LB_Test
    Application.OnTime Now + 0.000004, "ListboxDeselect"
End Sub

und in ein allgemeines Modul:

Code:

Sub ListboxDeselect()
    frm_LB_Test_2.lst_LB_Test.ListIndex = -1
End Sub

Gruß Uwe

 

Danke!