Fehlerhafte selektierte Lst_Einträge nach End Sub
23.04.2018 22:41:37
Sandra
Das Problem tritt dann auf, wenn der 2 und 4 Eintrag ausgewählt wurden. Werden hingegen der 1 und 3 Eintrag ausgewählt, dann funktioniert alles wie gewünscht. Daher bin ich auch so ratlos. Außerdem werden die Datensätze im Falle einer Deselektierung eines Listeneintrages verkehrt dargestellt. D. h. es werden jene Daten hervorgehoben, die nicht ausgewählt sein sollten und jene die ausgewählt sein sollten sind nicht ausgewählt. Hierbei werden einzlene Datensätze aus der Liste entfernt und im Falle einer Deselektierung werden diese Datensätze wieder eingefügt. Wie bereits geschrieben sind die Angaben im global definierten Array korrekt und bis zur Stelle "End Sub" wird alles richtig dargestellt.
Nachfolgend habe ich noch den Code aufgeführt. Wie gesagt der Fehler tritt erst auf, wenn "End Sub" überschritten wird.
Private Sub lst_Kombinationsmoeglichkeiten_P2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
_
_
ByVal Shift As Integer)
Call Aenderung_Listenfuellung(lst_Kombinationsmoeglichkeiten_P2)
cmd_ausfuehren.SetFocus
End Sub
Private Sub lst_Kombinationsmoeglichkeiten_P2_MouseUp(ByVal Button As Integer, ByVal Shift As _
_
_
Integer, ByVal X As Single, ByVal Y As Single)
Call Aenderung_Listenfuellung(lst_Kombinationsmoeglichkeiten_P2)
cmd_ausfuehren.SetFocus
End Sub