ListBox Auswahl aufheben bzw. rückgängig machen

[Annegret]

Hallo,

habe auf meiner UserForm eine ListBox angebracht, die mit einigen Werten befüllt wird.

Wenn ich in dieser ListBox einen Wert auswähle soll mit MsgBox der ausgewählte Wert angezeigt werden. Funktioniert.

Danach soll die Auswahl wieder rückgängig gemacht werden. Dies sollte eigentlich mit dem Befehl

ListBox1.ListIndex = -1 geschehen, doch leider funktioniert das nicht. Wo liegt der Fehler?

Sub ListBox1_Click()
MsgBox ListBox1.Value  'Funktioniert
ListBox1.ListIndex = -1 'Rückgängig machen der Auswahl - Funktioniert nicht!!
End Sub

Sub UserForm_Activate()
Dim i, f: f = Array("A", "B", "C", "D")

'Befüllung der ListBox1
For i = 0 To UBound(f)
ListBox1.AddItem f(i)
Next

End Sub

[Klaus-Dieter]

Hallo,

da noch niemand geantwortet hat, vermute ich, dass die Anderen deine Frage auch nicht verstanden haben. Wozu willst du die Auswahl wieder aufheben?

[Kuwer]

Hallo,

nimm statt des Click-Ereignisses das MouseUp-Ereignis:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 MsgBox ListBox1.Value  'Funktioniert
 ListBox1.ListIndex = -1 'Rückgängig machen der Auswahl - Funktioniert jetzt auch
End Sub

Gruß Uwe