Listbox
13.04.2003 11:30:40
Jens
Ich brauch mal eure Hilfe. In einer Listbox habe ich eine Zeile markiert und will diese Zeile mit dem nachfolgenden Code ändern. Wo muß ich Änderungen im Code vornehmen das keine neue Zeile eingefügt sondern die active ersetzt wird?
Private Sub CommandButton2_Click()
Zeile = ListBox1.ListCount
If TextBox3.Value = "" Then Exit Sub
With ListBox1
.AddItem TextBox2.Text
.List(Zeile, 1) = TextBox3.Value
Zeile = ListBox1.ListCount + 1
End With
TextBox2.Text = ""
TextBox3.Value = 0
Gesamt_Kosten
End Sub
Danke für eure Hilfe
Anzeige