Vorerst nur Lösungsansatz, bei Antwort auch Lösung
13.01.2010 09:33:12
Martin
Hallo Daniel,
da Dein Beitrag schon 3 Tage alt ist, möchte ich jetzt keinen unnötigen Programmieraufwand betreiben. Hier ein Code zum Verschieben der Listbox Einträge. Erstelle Dir noch zwei CommandButton zum Hoch- bzw. Herunterschieben der Einträge. Wenn Du antwortest, bin ich gerne bereit (wie von Dir gewünscht) auf die beiden CommandButton zu verzichten und das Verschieben der ListboxEinträge mittels Computermaus zu lösen.
Viele Grüße
Martin
Option Explicit
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