Ich möchte gerne einen Wert aus der TextBox1 in die ListBox1 übernehmen.
Dafür habe ich diesen Code
Private Sub cmdhinzufügen_Click()
Dim intZeile As Integer
intZeile = ListBox1.ListCount
ListBox1.AddItem
ListBox1.list(intZeile, 0) = TextBox1.text
End Sub
der funktioniert. Jetzt möchte ich aber das zeitgleich auch der Eintrag in der TextBox1 verschwindet. Wie schreibe ich das?
Für das Entfernen aus der Listbox1 verwende ich den Code
Private Sub cmdentfernen_Click()
With Me.ListBox1
If .ListIndex > -1 Then .RemoveItem (.ListIndex)
End With
End Sub
Das funktioniert. Wie schreibe ich es das alle Werte aus der ListBox1 gelöscht werden?
Private Sub cmd4_Click()
ListBox1.Items.Clear()
End Sub
funktioniert leider nicht ich bekomme einen syntax Fehler
Andere Frage:
Die Werte in der ListBox1 sollen zusammen mit einem Wert aus der combobox (cboPA_Nummer) gespeichert werden.
Diese Werte sollen auch jedesmal in der ListBox1 angezeigt werden, je nachdem welcher Wert in der combox ausgewählt und zuvor gespeichert wurde.
Bin für jede Hilfe Dankbar!
mfg