Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös

Gruppe

ListBox

Problem

Wie kann ich Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste löschen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmDelete

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

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

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 12
      lstMonate.AddItem Format( _
         DateSerial(0, iCounter, 1), "mmmm")
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmDelete.Show
End Sub