Hallo,
ich brauche mal bitte hilfe....ich habe ein code, in dem daten in einer liste automatisch in der letzte zeile gefüllt werden.
Ich würde aber genau das Gegenteil erzeugen. Ist das möglich, dass man die Zeile nach unten schiebt ( z.b von Zeile 10 ).
und in zeile 10 werden die neuen daten eingetragen.
eine Lösung muss nicht sein, nur mal eine Starthilfe wäre ok
For I = Me.ListView1.ListItems.Count To 1 Step -1
If Me.ListView1.ListItems.Item(I).Selected = True Then
Z = ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws2.Cells(Z + 1, 1).Value = ws1.Cells(10 + I, 1).Value
ws2.Cells(Z + 1, 2).Value = ws1.Cells(10 + I, 2).Value
ws2.Cells(Z + 1, 3).Value = ws1.Cells(10 + I, 3).Value
ws2.Cells(Z + 1, 4).Value = ws1.Cells(10 + I, 4).Value
ws2.Cells(Z + 1, 5).Value = ws1.Cells(10 + I, 5).Value
ws1.Rows(10 + I).Delete
Me.ListView1.ListItems.Remove (I)
gruß stefan
|