Listbox-Einträge auswechseln
13.04.2003 17:16:52
Jens
suche noch dringend eine Lösung zum wechseln von Listbox-Einträgen.
In einer LB wähle ich eine Zeile aus und mit der Click-Prozedur fülle ich 2Textboxen. Hier will ich Änderungen bei den Werte vornehmen und anschliesend wieder in der Listbox kopieren.
Hier die zwei Code die ich dazu verwende.
Private Sub ListBox1_Click()
Dim iCounter As Integer, iRow As Integer
Dim sSelect As String
With ListBox1
If .Listindex >= 0 Then
sSelect = .List(.Listindex, 0) & " - " & .List(.Listindex, 1)
iRow = .Listindex
End If
Controls("Textbox3").Value = .List(iRow, 1)
Controls("TextBox2").Text = .List(iRow, 0)
End With
Gesamt_Kosten
End Sub
Der Click-Code funktioniert einwandfrei nur mit dem 2. Teil , das zurückkopieren komme ich nicht zurecht. In dem Code werden nicht die Werte der Textboxen kopiert.
Private Sub CommandButton2_Click()
Dim iIdx As Integer 'ListboxZeile
With ListBox1
iIdx = ListBox1.Listindex
.RemoveItem .Listindex
.AddItem TextBox2.Text, iIdx
.List(iIdx, 1) = TextBox3.Value
End With
End Sub
Wer kann mir helfen
Danke Jens