Laufzeitfehler 381
13.11.2006 13:17:30
Julia
also ich habe da eine listbox. die benutzte ich um aktuelle werte anzuzeigen udn wieder zu löschen...an sich funktioniert alles...aber lieder nur an sich.
also wenn im schleifendurchlauf n ein wert hinzugefügt wird(dieser wird dann im schleifendurchlauf n+1 wieder gelöscht) und dann in n+1 noch ein wert hinzugefügt wird, dann bekomme ich diesen laufzeitfehler...warte ich mit dem löschen des elements aus dem schleifensurchlauf n bis n+2 bekomme ich allerdings kein fehler...
ich habe auch schon debuggt und das problem ist dann der listindex irgendwie höher ist als er eigentlich sein darf...beispiel:
reihenefolge so wie im orginal code...
UserForm1.ListBox3.AddItem ThisWorkbook.Sheets("Berechnung").Cells(zeile,1).Value
'das is dann zum löschen
For a = 0 To UserForm1.ListBox3.ListCount - 1
b = ThisWorkbook.Sheets("Berechnung").Cells(zeile, 1)
If (b = UserForm1.ListBox3.List(a)) Then
UserForm1.ListBox3.RemoveItem a
End If
Next a
als ich debugged hatte war listcount=2, aber das a in der schleife war a=2...das geht doch eigentlihc gar nciht oder?! mach ich was falsch!? hab ich was vergessen zurückzusetzten!?
danke für alle tipps