Anzeige
Archiv - Navigation
1176to1180
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
Werte in Listbox auflisten
urmila
Hallo zusammen,
ich komme nicht weiter und hoffe ihr könnt mir helfen...
Ich hab ein TextBox1, da gebe ich ein Text ein, z.B. "Nummer 1...", nun will auf auf Knopfdruck den Inhalt in ListBox1 eintragen lassen, angefangen mit einem "-" und dann eine Leerstelle und dann der eingegeben Text, z.B. sollte die ListBox1 so aussehen:
- Nummer 1
- Nummer 2
- Nummer 3
.
.
.
Zusätzlich habe ich noch zwei Buttons, einer soll den selektierten Wert (Zeile bzw den eingegebenen Text) in ListBox1 löschen können und der andere soll die Liste in Tabelle1 ab Zelle A9 untereinander aufführen (mit den "-" Strichen und der Leerstelle)
Ich hoffe ihr könnt mir helfen.
Um euch noch zu entlasten....eine Beispieldate: https://www.herber.de/bbs/user/71688.xls
Danke und LG
Urmila

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Werte in Listbox auflisten
28.09.2010 14:34:56
Rudi
Hallo,
Private Sub CommandButton2_Click()
With ListBox1
.RemoveItem .ListIndex
End With
End Sub

Private Sub CommandButton3_Click()
Dim arr(), i
ReDim arr(1 To ListBox1.ListCount, 1 To 1)
For i = 1 To ListBox1.ListCount
arr(i, 1) = ListBox1.List(i - 1, 0)
Next
Sheets(1).Cells(9, 1).Resize(ListBox1.ListCount) = arr
End Sub

Private Sub CommandButton1_Click()
ListBox1.AddItem "- " & TextBox1
End Sub

Gruß
Rudi
Listbox1.AddItem "- "&Textbox1.Value
28.09.2010 14:35:27
NoNet
Hallo Urmila,
genügt Dir folgende Anweisung (?!?) :
Private Sub CommandButton1_Click()
ListBox1.AddItem "- " & TextBox1.Value
End Sub
Gruß, NoNet
Aktuelle Infos und Anmeldung zum => Exceltreffen 2010 <= in Neubrandenburg (15.-17.10.2010) :
Treffen der Excel-Freunde und zahlreicher Helfer aus diversen Excel-Foren.
Auch DU kannst daran teilnehmen ... => Klicke hier <=

Anzeige
klappt...besten Dank :)
28.09.2010 14:48:48
urmila
LG
Urmila

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige