title image


Smiley Eintraege aus eine Listbox entfernen
Hallo,

Habe folgendes Problem:





If SucheInDatei(ThisDocument.Path & "\MeineDaten.Dat", "TEST A") Then



Dim i As Long, Name As String



Name = "TEST A"

For i = 0 To ListBox2.ListCount - 1

If ListBox2.List(i) = Name Then

ListBox2.RemoveItem (i)

Exit For

End If

Next i



Else

'MsgBox "nix"

End If



If SucheInDatei(ThisDocument.Path & "\MeineDaten.Dat", "TEST E") Then



Dim i2 As Long, Name2 As String



Name2 = "TEST E"

For i2 = 0 To ListBox2.ListCount - 1

If ListBox2.List(i2) = Name2 Then

ListBox2.RemoveItem (i2)

Exit For

End If

Next i2



Else

'MsgBox "nix"

End If





obwohl ich in der MeineDaten.Dat nur "TEST A" stehen habe, entfernt er mir auch den eintrag "TEST E" aus der listbox2.



Wo ist mein Fehler?



mein suchfunktion:





Public Function SucheInDatei(ByRef Dateiname As String, ByRef Suchbegriff As String) As Boolean

Dim intFile As Integer

Dim strInhalt As String



intFile = FreeFile

Open Dateiname For Input As #intFile

strInhalt = Input$(LOF(intFile), #intFile)

Close #intFile



SucheInDatei = (InStr(strInhalt, Suchbegriff) 0)



End Function





danke



gruß



frank





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: