Listbox-Einträge in Textbox kopieren VB-Version:  VB5, VB6
	Views:  13.401

Den kompletten Inhalt einer Listbox in eine Textbox kopieren geht so:

Sie benötigen 1 Listbox, 1 Textbox und einen CommandButton. Bei der Textboxbitte die Multiline-Eigenschaft auf True setzen. Dann nehmen Sie diesen Code:

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 Long
  ' Inhalt der Textbox löschen
  Text1.Text = ""
  ' Inhalt der Listbox in Textbox kopieren
  With List1
    For i = 0 To .ListCount - 1
      Text1.Text = Text1.Text & .List(i) & vbCrLf
    Next i
  End With
End Sub

Das war's dann auch schon.