Fjerne flere poster på en gang i listbox
HejJeg har en listbox hvor multiselect er sat til true. Ved tryk på en knap overføres markerede poster til et regneark. Problemet er, at jeg gerne vil have at posterne som er markeret bagefter fjernes fra listbox'en. Det skal gerne ligge efter den følgende kode som jeg anvender, og posterne skal blive fjernet på én gang hvis muligt:
Dim objRange As Range
Dim i As Integer
For i = 0 To Me.listeluk.ListCount - 1
If Me.listeluk.Selected(i) = True Then
With Me.listeluk
objRange.Value = .List(i)
objRange.Offset(, 1).Value = .List(i, 1)
objRange.Offset(, 2).Value = .List(i, 2)
objRange.Offset(, 3).Value = .List(i, 3)
objRange.Offset(, 4).Value = .List(i, 4)
objRange.Offset(, 5).Value = .List(i, 5)
objRange.Offset(, 6).Value = .List(i, 6)
Set objRange = objRange.Offset(1)
End With
End If
Next i