Thema: Wert austauschen

Home

In der ListBox wird ein über InputBox abgefragter Wert ausgetauscht.

Prozedur: lstDays_DblClick
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Wert austauschen
Ablaufbeschreibung:
- Variablendeklaration
- Neuen Eintrag über InputBox abfragen
- Wenn keine Eingabe erfolgt, Prozedur verlassen
- Rahmen um das ListBox-Objekt bilden
- Aktuellen Zellindex an eine Integer-Variable übergeben
- Ausgewählten Eintrag löschen
- Neuen Eintrag an der Position des gelöschten Eintrags einfügen

Code:


Private Sub lstDays_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   Dim iIdx As Integer
   Dim sNew As String
   sNew = InputBox("Neuen Eintrag eingeben:")
   If sNew = "" Then Exit Sub
   With lstDays
      iIdx = .ListIndex
      .RemoveItem .ListIndex
      .AddItem sNew, iIdx
   End With
End Sub