title image


Smiley Re: Eintraege aus eine Listbox entfernen
Hallo,



so funktioniert dein verkürzter Code in Word XP. Zum Testen den Commandbutton auch einmal öfter drücken.

Private Sub UserForm_Activate()

Me.ListBox1.Clear

For i = 1 To 10

Me.ListBox1.AddItem "TEST " & Chr(64 + i)

Next i

End Sub

'

Private Sub CommandButton1_Click()

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

Dim i

'

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Text = strInhalt Then

ListBox1.ListIndex = i

ListBox1.RemoveItem (ListBox1.ListIndex)

'Exit For

GoTo Ex

End If

Next i

End If

'

If strInhalt ListBox1.Text Then

MsgBox "Nicht gefunden!"

End If

Ex:

End Sub

'

Public Function SucheInDatei(ByRef Dateiname As String, _

ByRef Suchbegriff As String) As Boolean

Dim intFile As Integer

Dim strInhalt As String

'

Close

intFile = FreeFile

Open Dateiname For Input As #intFile

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

Close #intFile

'

SucheInDatei = (InStr(strInhalt, Suchbegriff) 0)

'MsgBox strInhalt

End Function      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: