Listbox item aanpassen

Status
Niet open voor verdere reacties.
M

mark1987vw

Gebruiker
Lid geworden
19 mei 2009
Berichten
96
Hallo allemaal,

Ik heb een listbox aangemaakt, waar items aan worden toegevoegd wanneer er aantal wordt aangegeven in de bijbehorende tekstbox.

ListboxAdd.JPG

Wanneer ik nu bijvoorbeeld bij 'item 1' de 1 verander naar een 2 wil ik dat deze wordt aangepast in de listbox ipv wordt toegevoegd.
Dus wat ik wil is dat die herkent dat er bijvoorbeeld al 1 Item 1 is toegevoegd en dat die daar bijvoorbeeld een 2 van maakt wanneer ik dit aanpas.
In mijn voorbeeld voegt die hem toe aan de onderkant en dat wil ik niet.

Item 1 hoeft niet altijd bovenaan te staan. Dit kan ook Item 3 of 2 zijn in dit voorbeeld dus het is niet altijd de bovenste dat item 1 is.
En dit kan ook allemaal door elkaar staan.

Wanneer het aantal van bijvoorbeeld item1 weer in 0 veranderd dan wil ik dat die de gehele rij van item1 verwijderd.

Ik hoop dat iemand mij kan helpen, bedankt alvast!

Bijgevoegd het voorbeeld bestand.
 

Bijlagen

  • ListboxAddRemove.xlsm
    14,6 KB · Weergaven: 32
Bv.

Code: 
Sub hsv()
Dim i As Long
With ListBoxMail
   .ColumnWidths = "20;100"
   .Clear
     For i = 1 To 3
       If Me("TextBox" & i).Value > 0 Then
             .AddItem
             .List(.ListCount - 1, 0) = Me("TextBox" & i).Value
             .List(.ListCount - 1, 1) = Me("Label" & i).Caption
        End If
      Next i
  End With
End Sub




Private Sub TextBox1_AfterUpdate()
 hsv
End Sub




Private Sub Textbox2_AfterUpdate()
 hsv
End Sub




Private Sub Textbox3_AfterUpdate()
 hsv
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan