Gruppe
Dialog
Problem
Wie kann ich Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste löschen?
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