Supportnet / Forum / Datenbanken
Mehrfachselektion und deren Transfer in ein Suchfeld
Frage
Hi, hab da ein kleines Problem - ich möchte aus einem Listenfeld mit Mehrfachselektion die ausgewählten Daten nacheinander in ein Textfeld übertragen und anschließend eine Suche starten. Kann mir bitte jemand helfen?
Antwort 1 von Teddy7
Markierte Eintragungen einer Listbox ermitteln
Dim strliste As String
Dim n As Integer
Dim i As Integer
If Not IsNull(lstFeld1.Column(0)) Then
'Anzahl der ausgewählten Zeilen feststellen
n = lstFeld1.ListCount - 1
'Zeilen durchlaufen und Werte der ersten Spalte in kommagetrennte Zeichenfolge schreiben
For i = 0 To n
If lstFeld1.Selected(i) Then
strliste = strliste & lstFeld1.Column(0, i) & ","
End If
Next
MsgBox strliste
Else
MsgBox "Keine Auswahl getroffen!", vbInformation
End If
Gruß
Teddy
Dim strliste As String
Dim n As Integer
Dim i As Integer
If Not IsNull(lstFeld1.Column(0)) Then
'Anzahl der ausgewählten Zeilen feststellen
n = lstFeld1.ListCount - 1
'Zeilen durchlaufen und Werte der ersten Spalte in kommagetrennte Zeichenfolge schreiben
For i = 0 To n
If lstFeld1.Selected(i) Then
strliste = strliste & lstFeld1.Column(0, i) & ","
End If
Next
MsgBox strliste
Else
MsgBox "Keine Auswahl getroffen!", vbInformation
End If
Gruß
Teddy
Antwort 2 von Collin
Hi Teddy,
vielen Dank für Deine schnelle Hilfe. Hab nicht damit gerechnet das ich so schnell eine Antwort auf meine Frage bekomme.
Vielleicht kannst du mir bei meinen nächsten Fragen ja auch helfen.
Gruß Collin
vielen Dank für Deine schnelle Hilfe. Hab nicht damit gerechnet das ich so schnell eine Antwort auf meine Frage bekomme.
Vielleicht kannst du mir bei meinen nächsten Fragen ja auch helfen.
Gruß Collin