ist es möglich eine Zeile in einer Listbox, einen Eintrag nach oben oder einen nach unten zu verschieben.
Gruß Harald
Otto
danke für deine Antwort, ich möchte jedoch einzelne Zeilen je nach Bedarf verschieben.
Das mit RowSource die Reihenfolge ändere verstehe ich nicht ganz,
wie du das meinst.
Gruß Harald
die Listbox ist ungebunden.
Gruß Harald
wäre toll wenn du mir den code dafür sagen könntest.
Gruß Harald
''Voraussetzungen:
''userform mit spi1 und lis1
Option Explicit
Dim X As Integer
Private Sub spi1_SpinDown()
X = 1
Call aktuell
End Sub
Private Sub spi1_SpinUp()
X = -1
Call aktuell
End Sub
Sub aktuell()
Dim Li As Integer
Dim Lc As Integer
Dim tmp As Variant
Li = lis1.ListIndex
Lc = lis1.ListCount - 1
If (X = 1 And Li = Lc) Or (X = -1 And Li = 0) Then
Exit Sub
Else
tmp = lis1
lis1.RemoveItem Li
lis1.AddItem tmp, Li + X
lis1.ListIndex = Li + X
End If
End Sub
''unbedingt den Listindex initialisieren, sonst gibts
''beim ersten Versuch zu verschieben einen Fehler!
Private Sub UserForm_Initialize()
''Dim Z As Integer
''For Z = 1 To 8
''lis1.AddItem Cells(Z, 1)
''Next
lis1.ListIndex = 0
End Sub
ich bin dabei den Code einzubauen, melde mich später noch einmal
Gruß Harald
habe den Code ausprobiert geht leider nicht, meine Listbox2 wird mit Daten aus der Listbox1 einzeln gefüllt ich nehme an das die Listbox2 dadurch nicht gebunden ist.
Gruß Harald