[VBA] ListBox

[Thunk]

Hey ik heb in word een listbox waar ik getallen in invoer.

frmInputNumbers.lstInsertedNumbers.AddItem txtInputNumbers.Text

Hoe kan ik als ik klaar ben met getallen invoeren de gegevens in die listbox sorteren op grootte (het zijn gehele getallen), en dan dat ik het grootste getal eruit haal?

Dank

[Skinny]

zoiets ?

HTH

code:

'BubbleSort de array
For x = frmInputNumbers.lstInsertedNumbers.ListCount - 1 To 0 Step -1
    For y = 0 To x - 1
      If CInt(frmInputNumbers.lstInsertedNumbers.List(y)) > CInt(frmInputNumbers.lstInsertedNumbers.List(y + 1)) Then
        tmpValue = CInt(frmInputNumbers.lstInsertedNumbers.List(y))
        frmInputNumbers.lstInsertedNumbers.List(y) = CInt(frmInputNumbers.lstInsertedNumbers.List(y + 1))
        frmInputNumbers.lstInsertedNumbers.List(y + 1) = tmpValue
      End If
      
    Next y
Next x

'Onderste waarde is maximum
MsgBox frmInputNumbers.lstInsertedNumbers.List(frmInputNumbers.lstInsertedNumbers.ListCount - 1)

[Thunk]

dankje
ik stel vanavond nog effe een vraagje over het programma
want hij werkt nog niet helemaal

[Verwijderd]

opx, dacht al dat je het niet alleen kon Ik vind hem toch mooi geworden!

mlss j3nz