Ich habe ein Datei mit einer Userform, die 2 Listboxen enthält.
In der Listbox1 wählt der User per Markierung (Multi-Markierung = True) Einträge aus. SObald dies geschieht, werden alle markierten in der 2'ten Listbox angezeigt.
Code:
Private Sub objLBAuswahl_Change()
a = 0
b = 0
c = 0
With objLBAuswahl
For a = .ListCount - 1 To 0 Step -1
If .Selected(a) = True Then c = c + 1
Next a
End With
ReDim arrLS(c, 6) ' c zum ermitteln, wieviele Einträge es sein werden
' Ermitteln der Markierten Einträge für den Übertrag in Listbox2
With objLBAuswahl2
For a = .ListCount - 1 To 0 Step -1
If .Selected(a) = True Then
ZeileA = .List(a, 0) + 3
arrLS(b, 0) = wksKZ.Cells(ZeileA, 47).Value ' wksKZ = Arbeitsblatt Warenkennzeichen
arrLS(b, 1) = wksKZ.Cells(ZeileA, 48).Value
arrLS(b, 2) = wksKZ.Cells(ZeileA, 49).Value
arrLS(b, 3) = wksKZ.Cells(ZeileA, 50).Value
arrLS(b, 4) = wksKZ.Cells(ZeileA, 51).Value
arrLS(b, 5) = wksKZ.Cells(ZeileA, 52).Value
b = b + 1
End If
Next a
End With
ReDim Preserve arrLS(b, 6) ' erhalte in der Listbox2 immer einen "leeren" Eintrag am Ende ;o(
' dachte mit Preserve würde man dies bereinigen ?!? _
' Zweite-Listbox mit den ausgewählten Warenkennzeichen anzeigen
With objLBDaten
.Clear
.ColumnCount = 6
.ColumnWidths = "0;0;80;110;0;0" ' Ansicht nur die Bezeichnung und Gruppe...
If b > 0 Then .List = arrLS ' Wenn nichts ausgewählt, bleibt die Listbox clear
End With
Ende:
End Sub
Frage:
Wie kann ich einen Eintrag einer Listbox - mittels eines Buttons "rauf", bzw. "runter", innerhalb der Liste verschieben?
Frage2:
Warum habe ich immer ein leere Zeile am Ende der Listbox2 ? Und wie kann ich diese entfernen ?!?
Gruß und Danke für Eure Unterstützung!
Kay