listbox dynamisch erweitern

[Windlaeufer]

Hallo zusammen,
Ich habe den ganzen Nachmittag Gegoogelt aber leider nichts passendes gefunden.

wie stelle ich es an, dass der Inhalt von zwei TextBoxen per Button in eine Listbox eingetragen wird.
Dann sollen die TextBoxen geleert werden und die neuen Eingaben in den TextBoxen sollen ebenfalls per Button
in die Listbox in die nächste Zeile eingetragen werden.

mfg. Juergen

[Crazy Tom]

Hallo

eine Möglichkeit

Code:

Private Sub CommandButton1_Click()
   Dim lngAnzahl As Long
   With ListBox1
       .AddItem TextBox1
       lngAnzahl = .ListCount
       .List(lngAnzahl - 1, 1) = TextBox2
   End With
   TextBox1 = ""
   TextBox2 = ""
End Sub

MfG Tom

[atilla]

Hallo,

Tom geht davon aus, dass Du eine zweispaltige Listbox hast.

Wenn Du aber nur untereinander schreiben möchtest, dann ginge es auch einfach so:

Code:

Private Sub CommandButton1_Click()
 Me.ListBox1.AddItem Me.TextBox1
 Me.ListBox1.AddItem Me.TextBox2
 Me.TextBox1 = ""
 Me.TextBox2 = ""
End Sub

[snb]

Code:

Private Sub CommandButton1_Click()
 With ListBox1
    .tag=iif(.tag="","",.tag & vblf) & textbox1 & vblf & textbox2
    .list=split(.tag,vblf)
 End With
 TextBox1 = ""
 TextBox2 = ""
End Sub

[Windlaeufer]

Hallo Tom,
 Hallo Atilla,
   Hallo snb

vielen Dank für eure schnelle Hilfe

alle drei Codes funktionieren ganz hervorragend, war ja auch nicht anders zu erwarten bei drei Spezialisten.

>Hallo Atilla ja ich hätte gerne eine Mehrspaltige Listbox, aber alle drei sind nur einspaltig...

> Hallo snb ich bewundere schon einige Zeit, deine Art zu Programmieren, faszinierend, aber verstehen tue ich es überhaupt nicht.

Drei Total unterschiedliche Codes, alle erzeugen das was ich wollte, nur eben zweispaltig.
Ich kann zwar Textbox1 &""& Textbox2 zusammen setzten, aber ich hätte gerne einen bestimmten Abstand zwischen den beiden Einträgen

mfg. Juergen

[RPP63]

Moin!

aber ich hätte gerne einen bestimmten Abstand zwischen den beiden Einträgen

Wenn der bestimmte Abstand aus fünf Leerzeichen bestehen soll:

Code:

Me.ListBox1.AddItem Me.TextBox1 & Space(5) & Me.TextBox2

Für eine zweispaltige Listbox siehe Toms Code.
Gruß Ralf

[Crazy Tom]

Hallo

wenn du eine 2 spaltige Listbox möchtest
dann entweder im Eigenschaftenfenster die gewünschten Einträge vornehmen
oder zur Laufzeit auf diese Weise

Code:

Private Sub CommandButton1_Click()
   Dim lngAnzahl As Long
   With ListBox1
       .ColumnCount = 2
       .ColumnWidths = "75;75"
       .AddItem TextBox1
       lngAnzahl = .ListCount
       .List(lngAnzahl - 1, 1) = TextBox2
   End With
   TextBox1 = ""
   TextBox2 = ""
End Sub

MfG Tom

[snb]

Warum nicht ?

Code:

Private Sub UserForm_Click()
 With ListBox1
    .Tag = IIf(.Tag = "", "", .Tag & vbLf) & Textbox1 & vbTab & Textbox2
    .List = Split(.Tag, vbLf)
 End With
End Sub