Ich möchte in einer Listbox einen Eintrag mit der Maus verschieben zum Beispiel Eintrag von Position 5 nach Position 2 geht sowas in einer Listbox?
Private Sub UserForm_Initialize()
For a = 1 To 20
ListBox1.AddItem "eintrag_" & a - 1
Next a
ListBox1.ListIndex = 0
End Sub
Private Sub CommandButton1_Click()
MoveListItem (True)
End Sub
Private Sub CommandButton2_Click()
MoveListItem (False)
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 50
ListBox1.AddItem "Eintrag " & i
Next i
End Sub
Private Sub MoveListItem(bolUp As Boolean)
Dim intSwapRow As Integer, i As Integer
Dim varVal As Variant
With ListBox1
If .ListIndex