title image


Smiley Re: Eintraege aus eine Listbox entfernen
Hallo,



danke.



leider habe ich da ein problem mit der variablen strInhalt die wird von der funktion nicht uebergeben so wie es aussieht.

"If ListBox1.Text = strInhalt Then" -> bekomme hier variable nicht definiert.

definieren bringt ja nichts, muss ja der wert von der funktion sein, oder?



Private Sub CommandButton8_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





Private Sub UserForm_Activate()

Me.ListBox1.Clear

For i = 1 To 10

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

Next i



End Sub





meine userform_activate():



Private Sub UserForm_Activate()

Dim xPathAndFile$

Dim xSaetze&

Dim xRs As MyType



'Datei öffnen

xPathAndFile$ = ThisDocument.Path & "\MeineDaten.Dat"

DBFn = FreeFile

Open xPathAndFile$ For Random As DBFn Len = Len(MyDB)



ListBox1.Clear

ListBox1.ColumnCount = 5

ListboxLaden

xSaetze = LOF(DBFn) \ Len(xRs)

If xSaetze > 0 Then

ListBox1.ListIndex = 0

End If





End Sub





Sub ListboxLaden()



Dim xSaetze&

Dim xi&

Dim xRs As MyType

xSaetze = LOF(DBFn) \ Len(xRs)

If xSaetze > 0 Then



ReDim xArray(xSaetze - 1, 4) As String

For xi = 0 To UBound(xArray, 1)

Get DBFn, xi + 1, xRs

xArray(xi, 0) = xRs.VName

xArray(xi, 1) = xRs.SG

xArray(xi, 2) = xRs.NName

xArray(xi, 3) = xRs.HF

xArray(xi, 4) = xRs.CO

Next

ListBox1.List = xArray

End If



End Sub



kannst du mir bitte helfen.



danke



gruß



nochmal ganz kurz:



ich moechte, dass wenn der eintrag "Test A" in der Meinedaten.dat vorhanden ist dieser etnfernt wird.

mein bisheriger versuch nochmal:



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





hier wird obohl nur "Test E" in der .dat datei vorhanden ist auch "Test A" aus der listbox2 entfernt. das ist mein problem.



danke gruß



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: