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
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
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
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
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