HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: Listbox Eintrag löschen nicht mit Index | Herbers Excel-Forum

Listbox Eintrag löschen nicht mit Index
Christian

Hallo zusammen,
ich möchte mit folgendem code in eine Listbox Werte eintragen bzw. löschen: 
Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim strVU As String
strVU = Node.Text
If Node.Checked Then
Me.ListBox1.AddItem strVU
End If
If Not Node.Checked Then
End If
End Sub

Das mit dem eintragen funktioniert, nur wie kann ich löschen RemoveItem verlangt ja einen Index ich habe aber nur den Text des Knotens. Ich müsste also nach diesem in der Listbox suchen dann habe ich den Index und könnte dann diesen Eintrag löschen.
Ich komme jetzt einfach nicht drauf wie ich das mache und wäre für Hilfe sehr dankbar!
Viele Grüße
Christian

AW: Listbox Eintrag löschen nicht mit Index
Josef

Hallo Christian,
ungetestet.
Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)
  Dim strVU As String
  Dim lngIndex As Long
  
  strVU = Node.Text
  
  If Node.Checked Then
    Me.listbox1.AddItem strVU
  Else
    With Me.listbox1
      For lngIndex = 0 To .ListCount - 1
        If .List(lngIndex) = strVU Then
          .RemoveItem (lngIndex)
          Exit For
        End If
      Next
    End With
  End If
End Sub

Gruß Sepp

AW: Listbox Eintrag löschen nicht mit Index
Christian

Hi Sepp,
funktioniert einwandfrei!!
Sieht so einfach aus, aber erstmal drauf kommen.
Tausend Dank!
Christian