Avatar billede skrepee Nybegynder
16. august 2007 - 12:06 Der er 2 kommentarer og
1 løsning

Fjerne flere poster på en gang i listbox

Hej

Jeg 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
Avatar billede word-hajen Nybegynder
16. august 2007 - 16:35 #1
For i = me.listeluk.listcount-1 to 0 step -1
    If me.listeluk.Selected(i) = true then
        me.listeluk.RemoveItem (i)
    endif
next i
*****************
Du er nødt til at køre en ny Next-løkke, ellers risikerer du, at der går koks i dine gennemløb. Du kan dog sagtens placere den nye løkke i samme procedure efter din eksisterende løkke.
Avatar billede skrepee Nybegynder
21. august 2007 - 08:47 #2
Ser ud til at funke efter planen :D
Avatar billede word-hajen Nybegynder
21. august 2007 - 13:55 #3
Godt. Så tillader jeg mig at smide et svar.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester