Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

listbox dynamisch erweitern
#1
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
Antworten Top
#2
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
Antworten Top
#3
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
Gruß Atilla
Antworten Top
#4
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
Antworten Top
#5
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
Antworten Top
#6
Moin!
Zitat: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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Windlaeufer
Antworten Top
#7
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
[-] Folgende(r) 1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag:
  • Windlaeufer
Antworten Top
#8
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste