Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Multiselect von Listbox in Textbox

Multiselect von Listbox in Textbox
03.12.2020 12:31:31
Listbox
Hallo zusammen,
mit folgendem Code lese ich die markierte Zeile einer Listbox aus und schreibe Sie in die Textbox.
Nun soll jedoch bei einer Mehrfachauswahl die markierten Daten der Listbox in einer Textbox hintereinander geschrieben
werden.
TextBox1 = Me.ListBox1.List(ListBox1.ListIndex, 0)
Wie könnte ich das umsetzen?
Ich finde nur Codes, die jede markierte Spalte in jeweils eine Zelle schreiben, nicht hintereinander.
Lieben Dank vorab.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Multiselect von Listbox in Textbox
03.12.2020 12:50:41
Listbox
Moin
Hier mit Button. 
Private Sub CommandButton1_Click()
Dim i As Long
Dim strText As String
With ListBox1
.Clear
For i = 0 To .ListCount - 1
If .Selected(i) Then
strText = strText & .List(i) & "/"
End If
Next
End With
TextBox1 = Left(strText, Len(strText) - 1)
End Sub

gruss hary
AW: Multiselect von Listbox in Textbox
03.12.2020 12:55:28
Listbox
Hi Harry
Kleiner Optimierungsvorschlag:
Setze das Trennzeichen an den Anfang, dann lässt es sich leichter entfernen ohne LEN:
strText = strText & "/" & .List(i)
Textbox1.Text = Mid(strText, 2)
Gruß Daniel
Anzeige
AW:Stimmt Daniel gruss owT
03.12.2020 12:58:36
hary
.
AW: Multiselect von Listbox in Textbox
03.12.2020 13:03:32
Listbox
Vielen Dank Euch.
Funktioniert prima !
AW: Multiselect von Listbox in Textbox
03.12.2020 13:19:18
Listbox
Hallo Daniel, Hallo hary,
ich hab mir angewönt "überflüssige" Trenner erst gar nicht in den String aufzunehmen. Dann muss ich die auch nicht wieder entfernen. 
For i = 0 To .ListCount - 1
If .Selected(i) Then
If strText = vbNullString Then
strText = .List(i)
Else
strText = strText & "/" & .List(i)
End If
End If
Next

Hab ich mir halt so angewöhnt, auch wenn es ein paar Zeilen Code mehr sind. Aber jeder nach seiner Fasson.
Gruß Werner
AW: Multiselect von Listbox in Textbox
03.12.2020 14:51:39
Listbox
Hi Werner
Ja, aber anstelle der einmalig ausgeführten einfachen Aktion baust du dir eine komplette If-Struktur ein, die dann such noch vielfach in einer Schleife ausgeführt wird.
Da ist das nachträgliche Entfernen eines Zeichens das wesentlich kleinere Übel.
Deinen Ansatz fahre ich dann, wenn ich weiß, welches das erste Element ist, dann kommt dieses als erstes in der Ergebnisstring ohne Trenner und die weiteren dann per Schleife mit Trenner:
strText = .List(0)
For i = 1 to .ListCount - 1
StrText = strText & "/" & .List(i)
Next
Textbox1.Text = strText
Aber sich eine IF-Abfrage in eine Schleife einzubauen um eine einzige Programmzeile einsparen zu können ist grober Unfug.
Gruß Daniel
Anzeige
@Daniel
03.12.2020 15:24:35
Werner
Hallo Daniel,
das tut mir jetzt aber auch weh.;-D
Vor allem, weil du natürlich recht hast.
Gruß Werner

279 Forumthreads zu ähnlichen Themen

Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
Anzeige
lst-box mit multiselect in txt-box
Martin

Guten Tag zusammen
Hei der Frühling klopft schon ganz leise. smile
Nun zu meiner Frage kann ich Einträge aus einer Listbox (mit multiselect) in eine Textbox schreiben.
Mein Versuch:
Private Sub cmd_okay_Click() frm_Offerliste.txt_Abteilung.Value = lst_Abteilung.ListIndex(1) &a...
21.02.2009 13:19:27
Thread-ID: 1052619
7 Beiträge
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
Anzeige
Multiselect in Listboxen
Pete

Hallo,
ich habe mal eine Frage zu einer Eigenschaft von Userform Listboxen. Da kann man wählen zischen fmMultiselectSingle, fmMultiselectMulti und fmMultiselectExtended. Bei den Einstellungen Single und Extended kann ich keinen Unterschied feststellen. Was bewirkt letzteres?
Es grüßt Pe...
19.12.2010 00:12:29
Thread-ID: 1192057
3 Beiträge
Mehrfachselect in ListBox und Klick-Ereignis?
Kasimir

Hallo an alle Helfer!
Ich habe da mal eine Frage zum Arbeiten mit einer ListBox. Ich habe eine ListBox, in der ich mir Daten auflisten lasse. Klickt man eine Zeile der ListBox an, werden mir die Daten in TextBoxen geschrieben, so dass ich die Daten darüber ändern kann.
Nun hatte ich na...
25.03.2011 21:35:22
Thread-ID: 1207658
5 Beiträge
HTMLSelect (Listbox)
Thomas

Hi an alle,
mein Problem ist es, wenn ich html in Excel umwandel generiert er mir eine HTML-Select-box in eine Excel HTMLSelect (listbox). Nun hab ich eine HTMLSelect (Listbox) mit ungefaehr 60 Eintraege, wenn ich allerdings einen Eintrag > 41 auswaehl stürzt mir mein Excel ab.
Kann es se...
12.06.2002 16:28:24
Thread-ID: 128162
2 Beiträge
For-Schleife für Multiselect in Listbox
Tom

Hallo,
Ich habe in einer Userform eine Listbox, die alle Tabellennamen meiner Arbeitsmappe enthält. Diese Tabellennamen sind zusätlich noch mit einem Hyperlink zu einer bestimmten Zelle auf dem jeweiligen Blatt hinterlegt. Klicke ich einen Tabellennamen, wird automatisch im Hintergrund der...
18.09.2014 09:56:17
Thread-ID: 1382221
4 Beiträge
VBA Listbox kopieren und löschen ( Multiselect)
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
...
17.04.2015 14:42:05
Thread-ID: 1421497
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
6
3
2
2
4
1
3
3
4
2
2
2
2
7
9
5
3
7
5
3
4
3
2