Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ListBox - Eintraege kuerzen
Autor: CarpeDiem
Datum: 10.09.04 21:20
Hi,   gibt es eine "elegantere" Lösung um überzählige Einträge zu löschen? Ich meine einen Löschvorgang en bloc, ähnlich wie bei Excel (select Spalte,Zeile, clearcontents) Private Sub Kuerzen() Dim k , Max As Integer Max = Text1.Text With List1 k = 0 Do Until k > .ListCount - 1 If k >= Max Then .RemoveItem k Else k = k + 1 End If Loop End With End Sub Ich frage deshalb, weil ich derzeit in einer Subroutine ca. 30.000 Einträge lösche, bevor ich mit dem Hauptprogramm weiter arbeiten kann. Ein Löschvorgang von der Variablen Max bis zum 30.000igsten Einträge wäre doch etwas schneller. Für jeden Hinweis wäre ich dankbar. Johann

ListBox - Eintraege kuerzen	581	CarpeDiem	10.09.04 21:20
Re: ListBox - Eintraege kuerzen	322	Dieter	11.09.04 08:58
Re: ListBox - Eintraege kuerzen	264	CarpeDiem	11.09.04 09:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen