Daten von ListBox1 in ListBox2 übernehmen
15.12.2006 14:16:26
ListBox1
habe eine Tabelle mit 12 Spalten die in ListBox (lstSource) eingelesen werden.
Der in der ListBox (lstSource) angeklickte Wert wird in die zweite ListBox
lstTarget) übernommen.
Problem: Es werden nur die Ersten 10 Spalten übernommen, wie kann man 12 Spalten in die zweite ListBox übernehmen?
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße
Private Sub lstSource_Click()
Dim iCol As Integer
lstTarget.AddItem
For iCol = 0 To 12
lstTarget.List(lstTarget.ListCount - 1, iCol - 1) = lstSource.List(lstSource.ListIndex, iCol - 1)
Next iCol
End Sub
Private Sub UserForm_Initialize()
Dim iRowL As Integer
iRowL = Cells(Rows.Count, 24).End(xlUp).row
lstSource.List = Range( _
Cells(6, 24), Cells(iRowL, 35)).Value
End Sub
Anzeige