Mehrere Zeilen in Listbox schreiben geht nicht
11.08.2019 12:54:02
Andre
ich brauche ein wenig Hilfe:
Ich fülle vier TextBoxen und mit einem "Ok-Button" soll der Inhalt in eine Listbox mit vier Spalten geschrieben werden. Die Besonderheit: Eine der TextBoxen gibt die Anzahl der Zeilen vor, die in die Listbox geschrieben werden soll.
Heißt: also z.B. Anzahl ist 5, dann fünf Zeilen mit den Werten der Textboxen. Bei meinem Code funktioniert es bei der ersten Eingaben. Wenn ich aber weitere Daten erfasse und den OK-Button klicke, wird immer nur eine Zeile geschrieben, anstatt die Anzahl der eingegebenen Zahl. Leider reichen meine Kenntnisse nicht aus und ich würde mich freuen, wenn einer von Euch den Code entsprechend erweitern kann.
Private Sub CommandButton_OK_Click()
Dim last As Integer
Dim X As Long
For X = 1 To CLng(TextBox2.Value)
ListBox1.AddItem TextBox_Material
ListBox1.List(last + X - 1, 1) = TextBox1.Value
ListBox1.List(last + X - 1, 2) = "1"
ListBox1.List(last + X - 1, 3) = TextBox3.Value
Next X
TextBox_Material.Value = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox_Material.SetFocus
End Sub
Danke
Andre