Thema Datum  Von Nutzer Rating
Antwort
15.08.2007 15:40:40 Carsten
NotSolved
Blau Aw:Combobox oder Listbox
 16.08.2007 16:52:39 martin
NotSolved
16.08.2007 18:36:49 Carsten
NotSolved
17.08.2007 08:56:01 Sozu
NotSolved
17.08.2007 11:18:56 Carsten
NotSolved
17.08.2007 15:10:38 Sozu
NotSolved

Ansicht des Beitrags:
Von:
martin		 Datum:
16.08.2007 16:52:39		 Views:
1441		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Combobox oder Listbox
1. eintrag bei google suchwörter: vba multiselect listbox:

Mehrfachauswahl aus ListBox in TextBox übernehmen

Der Anwender soll aus einer ListBox mehrere Begriffe auswählen können, die dann auf einmal in eine TextBox übernommen werden sollen. Starten Sie also ein neues Projekt mit einer ListBox (Multiselect = 1 - Einfach oder 2 - Erweitert), einer TextBox (Multiline = True) und einem CommandButton. Dann benötigen Sie noch diesen Code:

Option Explicit

Private Sub Form_Load()
' ListBox mit Einträgen füllen
Dim i As Integer

For i = 1 To 10
List1.AddItem "Eintrag " & CStr(i)
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer
With List1
For i = 0 To .ListCount - 1
' ausgewählte Einträge ermitteln ...
If .Selected(i) Then
' ... und in die TextBox schreiben
Text1.Text = Text1.Text & .List(i) & vbCrLf
End If
Next i
End With
End Sub


zum speicern zb:(auch von google)

Option Explicit

Private m_strFileName As String

Private Sub Form_Load()
Dim strAppPath As String

strAppPath = ApplicationPath
m_strFileName = strAppPath & "Beispiel.txt"

Text1.Text = "Dies ist ein Mustertext, der gespeichert und " & _
"auch wieder eingelesen werden kann." & vbCrLf & vbCrLf & _
"Euer VB-Fun.de-Team."
End Sub

Private Sub cmdOpen_Click()
Dim FN As Integer
Dim strText As String

On Error GoTo err_Log

FN = FreeFile()
Open m_strFileName For Input As #FN
strText = Input(LOF(FN), 1)
Close #FN
Text1.Text = Mid$(strText, 2, Len(strText) - 4)

Exit Sub

err_Log:
MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !"
End Sub

Private Sub cmdSave_Click()
Dim FN As Integer

FN = FreeFile()
Open m_strFileName For Output As #FN
Write #FN, Text1.Text
Close #FN
End Sub

Private Function ApplicationPath() As String
Dim strPath As String

strPath = App.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
ApplicationPath = strPath
End Function

mfg und happy-google-using
martin


Carsten schrieb am 15.08.2007 15:40:40:

Hallo,
ich möchte aus einer Liste mit vielen Datensätzen von 10-100 eine Auswahl treffen können. Das heisst ich fülle die Liste mit werten, selektiere einen ODER mehrere und Nach Click auf einen OK-Button werden die selektierten Einträge weiterverarbeitet.
Ist es möglich in einer ComboBox auch mehrere Einträge zu selektieren?
Wie selektiere ich in einer Listbox mehrere Einträge?
Vielen Dank für eure Hilfe!
Carsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.08.2007 15:40:40 Carsten
NotSolved
Blau Aw:Combobox oder Listbox
 16.08.2007 16:52:39 martin
NotSolved
16.08.2007 18:36:49 Carsten
NotSolved
17.08.2007 08:56:01 Sozu
NotSolved
17.08.2007 11:18:56 Carsten
NotSolved
17.08.2007 15:10:38 Sozu
NotSolved