Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Daten aus Listbox in Textbox einlesen und zurück i

Betrifft: Daten aus Listbox in Textbox einlesen und zurück i von: edie
Geschrieben am: 30.07.2008 17:06:18

Hallo zusammen,

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

  

Betrifft: Lad mal eine Beispieldatei hoch o.w.T. von: Ramses
Geschrieben am: 31.07.2008 05:27:29

...


  

Betrifft: AW: Lad mal eine Beispieldatei hoch o.w.T. von: edie
Geschrieben am: 31.07.2008 14:20:52

Hallo Ramses,

vielen Dank, bin etwas im Verzug mit der Beispieldatei.

Hier Die Datei https://www.herber.de/bbs/user/54241.xls


Vielen Dank im Voraus.

Grüße


 

Beiträge aus den Excel-Beispielen zum Thema "Daten aus Listbox in Textbox einlesen und zurück i"