Listboxinhalt Spalten vertauscht ausgeben
16.06.2009 14:00:05
Herbert
Ich habe eine Userform mit zwei ListBoxen. In der ersten ListBox lese ich die Daten aus den Spalten P bis AO (ein ganzer Datensatz) ein, mit Doppelklick wird dieser in die zweite Listbox übernommen (auch mehrere) und mit Klick auf eine Schaltfläche in eine andere Mappe eingetragen.
In der neuen Mappe brauche die Daten der Spalten P bis Y in den Spalten B bis K - das funktioniert.
Jetzt mein Problem:
Wie muß ich den Code ergänzen um den Inhalt der Spalte AO in die Spalte A
zu bekommen?
Danke an alle, die sich das mal anschauen
Gruß Herbert
Option Explicit
Private Sub cmdEintragen_Click()
Dim iRow As Integer, iRowL As Integer, iCol As Integer
ThisWorkbook.Worksheets("ENBS").Activate
iRowL = Cells(Rows.Count, 2).End(xlUp).Row + 1
For iRow = 0 To lstENBS.ListCount - 1
For iCol = 0 To 9
Cells(iRowL + iRow, iCol + 2) = lstENBS.List(iRow, iCol)
Next iCol
Next iRow
lstENBS.Clear
End Sub
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub lstENBS_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lstENBS.RemoveItem lstENBS.ListIndex
End Sub
Private Sub lstSBL_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim iCounter As Integer
lstENBS.AddItem
For iCounter = 0 To 9
If iCounter
Private Sub UserForm_Initialize()
Dim iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
lstSBL.List = Range( _
Cells(2, 16), Cells(iRowL, 37)).Value
lstSBL.ColumnWidths = "22;22;60"
lstENBS.ColumnWidths = "22;22;60"
End Sub