Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TreeView
BildScreenshot zu TreeView TreeView-Seite mit Beispielarbeitsmappe aufrufen

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


Betrifft: Listbox Eintrag löschen nicht mit Index von: Christian
Geschrieben am: 29.12.2009 22:01:54

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

  

Betrifft: AW: Listbox Eintrag löschen nicht mit Index von: Josef Ehrensberger
Geschrieben am: 29.12.2009 22:21:51

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



  

Betrifft: AW: Listbox Eintrag löschen nicht mit Index von: Christian
Geschrieben am: 29.12.2009 22:36:29

Hi Sepp,

funktioniert einwandfrei!!

Sieht so einfach aus, aber erstmal drauf kommen.

Tausend Dank!

Christian


Beiträge aus den Excel-Beispielen zum Thema "Listbox Eintrag löschen nicht mit Index"