Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zu einer bestehenden Listbox Daten hinzufügen

Zu einer bestehenden Listbox Daten hinzufügen
24.08.2005 09:22:30
klamsi
Guten Morgen ihr Lieben ^^
Mit dem Kommando:
ListBox1.List = Split(TxtBox1.Text, vbCrLf)
Kann ich Daten aus einer TextBox in eine ListBox übertragen.
Dabei gibtz aber ein kleines Problem. Will ich nähmlich zu der bestehenden ListBox noch was hinzufügen, werden die bestehnden Daten ÜBERSCHRIEBEN(!!!) *zitter*
Weiß wer was ich machen muss damit meine Einträge beibehalten, und nur ergänzt werden?
Greetz,
Klamsi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zu einer bestehenden Listbox Daten hinzufügen
24.08.2005 09:28:16
u_
Hallo,
Listbox1.additem "test"
Gruß
Geist ist geil!
AW: Zu einer bestehenden Listbox Daten hinzufügen
24.08.2005 10:46:13
klamsi
Haja, stimmt.
Nur blöd is, dass dann immer alle in der TxtBox bestehenden Einträge in eine Zeile der ListBox geschrieben werden...
Habs aber jetzt hinbekommen... über nen Umweg:
If ListBoxInsert.ListCount = 0 Then
ListBoxInsert.List = Split(TxtBoxInsert.Text, vbCrLf)
Else
LstBoxCache.List = Split(TxtBoxInsert.Text, vbCrLf)
'Hier wird geprüft ob der Eintrag schon vorhanden ist.
For i = 0 To LstBoxCache.ListCount - 1
DoubleTag = False
For X = 0 To ListBoxInsert.ListCount - 1
If LstBoxCache.List(0) = ListBoxInsert.List(X) Then DoubleTag = True
Next X

If DoubleTag = True Then
LstBoxCache.RemoveItem (0)
Else
ListBoxInsert.AddItem LstBoxCache.List(0)
LstBoxCache.RemoveItem (0)
End If
Next i
End If
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige