Thema: Elemente löschen

Home

Elemente in der ListBox bei Drücken der Entf-Taste löschen.

Prozedur: lstMonate_KeyDown
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Elemente löschen
Ablaufbeschreibung:
- Variablendeklaration
- Wenn die Entfernen-Taste gedrückt wurde...
- Schleife vom letzten bis zum ersten ListBox-Element führen
- Wenn das aktuelle Element ausgewählt ist...
- Element löschen

Code:


Private Sub lstMonate_KeyDown( _
   ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   Dim iCounter As Integer
   If KeyCode = 46 Then
      For iCounter = lstMonate.ListCount - 1 To 1 Step -1
         If lstMonate.Selected(iCounter) Then
            lstMonate.RemoveItem iCounter
         End If
      Next
   End If
End Sub