VBA ListBox Deselect

Meine Listbox ist eine single select box, die beim einfachen Click auf ein Element Code ausführt (eine MessageBox anzeigt). Das ausgewählte Element wird in der ListBox blau hinterlegt und der Code wird ausgeführt. Das Element wird anschließend mit .Selected(.ListIndex) = False de-selektiert. Das funktioniert auch und der .ListIndex wird auf -1 gesetzt, da kein Element ausgewählt wurde.
Durch den .ListIndex-Change wird die Prozedur erneut aufgerufen und sollte ohne irendwelche Aktion zum Ende kommen, da .ListIndex ja -1 ist. Tatsächlich nimmt .ListIndex aber wieder den alten Wert (z.B. 2) an und die alte blaue Markiertung des Elements bleibt erhalten. Die Markierung sollte eigentlich leer sein und .ListIndex -1. Der Code in der Prozedur wird dadurch erneut ausgeführt.
Es scheint ein Fehler zu sein, der nur einmal auftritt, da die Prozedur nicht unendlich oft, sondern nur 2 Mal ausgeführt wird.
Hier ist die (verkürzte) Prozedur:

Private Sub lboStarSigns_Click()
With Me.lboStarSigns
If .ListIndex > -1 Then
'execute this code
... code ...
.Selected(.ListIndex) = False
End If
End With
End Sub

Hat jemand ein Idee, was der Fehler ist?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim bolCode As Boolean Private Sub ListBox1_Click() If Not bolCode Then With ListBox1 If .ListIndex > -1 Then MsgBox .Value bolCode = True .ListIndex = -1 End If End With Else bolCode = False End If End Sub

Hallo Rudi,
danke für die schnelle Antwort. Offenbar löst der Code den Click aus. Dennoch bleibt in der ListBox das gewählte Element blau markiert und der .ListIndex behält den alten Wert, obwohl .ListIndex = -1 gesetzt wurde. Dies scheint das Problem zu sein. Habe es auch mit der Brachial-Methode .Clear und erneut .AddItem versucht. Das Markierungsproblem bleibt aber dennoch erhalten. Gibt es sowas wie Repaint für ListBoxen?
Der Code lautet jetzt (verkürzt):
Option Explicit
Dim bCode As Boolean

Private Sub lboStarSigns_Click()
If Not bCode Then
With Me.lboStarSigns
If .ListIndex > -1 Then
MsgBox .Value
.ListIndex = -1
bCode = True
End If
End With
Else
bCode = False
End If
End Sub

Private Sub UserForm_Initialize()
bCode = False
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

6 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA ListBox Deselect

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread