Daten aus Listbox in Textbox einlesen und zurück i
30.07.2008 17:06:18
edie
aus einem Tabellenblatt mit Daten in den Spalten A bis J ab Zeile 7, nach unten variabel,
werden Suchbegriffe gesucht und die Fundstellen, ganze Zeile, in eine Listbox eingelesen.
Nun möchte ich gerne die Daten bearbeiten bzw. editieren, dazu wird ein Datensatz in der Listbox per Doppelklick gewählt und in die 10 Texboxen (Spalten A bis J ergibt 10) eingelesen.
Nach dem Editieren sollen die Daten in der Listbox und Tabelle korrigiert werden.
Mit dem folgenden Code, aus dem Archiv, wird in der Listbox korrigiert in der Tabelle aber wird ein neuer Datensatz mit der Korrektur in die Zeile 7 eingefügt. Wieso wird nicht die richtige Zeile gefunden?
Liegt dass Problem in der Zeile: Cells(.ListIndex + 7, iCounter).Value? Die Tabelle beginnt ab der 7 Zeile.
Private Sub cmdInsert_Click()
Dim iCounter As Integer
For iCounter = 1 To 10
With UserForm1.ListBox1
.List(.ListIndex, iCounter) = _
Controls("TextBox" & iCounter).Text
Cells(.ListIndex + 7, iCounter).Value = _
.List(.ListIndex, iCounter)
End With
Next iCounter
End Sub
Kann mir jemand weiter helfen oder einen anderen Tipp geben?
Vielen Dank im Voraus.
Grüße