Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.08.2007 15:40:40 |
Carsten |
|
|
Aw:Combobox oder Listbox |
16.08.2007 16:52:39 |
martin |
|
|
|
16.08.2007 18:36:49 |
Carsten |
|
|
|
17.08.2007 08:56:01 |
Sozu |
|
|
|
17.08.2007 11:18:56 |
Carsten |
|
|
|
17.08.2007 15:10:38 |
Sozu |
|
|
Von:
martin |
Datum:
16.08.2007 16:52:39 |
Views:
1191 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aw:Combobox oder Listbox |
16.08.2007 16:52:39 |
martin |
|
|
|
16.08.2007 18:36:49 |
Carsten |
|
|
|
17.08.2007 08:56:01 |
Sozu |
|
|
|
17.08.2007 11:18:56 |
Carsten |
|
|
|
17.08.2007 15:10:38 |
Sozu |
|
|