werte in listbox verschieben
kirsche
ich bin hier am verzweifeln und hoffe auf eure hilfe.
von listbox1 lese ich in listbox2 diverse daten ein (4spalten=art.nr./artikeltext/LTS/zutat).
das funktioniert auch super(nach langer recherche im forumsarchiv).
nun möchte ich die werte innerhalb der listbox2 verschieben. hierfür habe ich auch einen code gefunden, der annähernd passt, leider aber nur annähernd.
wenn ich den code 1x auslöse, wird der wert verschoben, aber leider nur in spalte 1, der rest ist weg.
außerdem funktioniert der code beim 2. click nicht mehr. was mache ich hier noch falsch?
Private Sub cb_down_Click()
Dim MyArray As Variant
Dim i As Integer, AktuellePosition As Integer
With ListBox2
If .ListIndex = .ListCount - 1 Then Exit Sub
AktuellePosition = .ListIndex
ReDim MyArray(.ListCount - 1)
For i = 0 To .ListCount - 1
If i = .ListIndex + 1 Then
MyArray(i) = .List(i - 1, 2)
Else
If i = .ListIndex Then
MyArray(i) = .List(i + 1, 2)
Else
MyArray(i) = .List(i, 2)
End If
End If
Next i
.Clear
.List = MyArray
.ListIndex = AktuellePosition + 1
End With
End Sub
Anzeige