Daten in Listbox bearbeiten
26.04.2014 11:07:31
basti_fantasti
mit folgendem Code schreibe ich daten in eine Excel Tabelle:
Private Sub CommandButton1_click()
Sheets("profile").Select
Dim Zelle As Long
Dim I As Long
Zelle = Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To 24
Cells(Zelle, I) = Controls("TextBox" & I)
Controls("TextBox" & I) = ""
Next
End Sub
Das funktioniert. Über ein Listview kann ich die Daten suchen und werden dann im Listview korrekt angezeigt. Ich würde gerne erreichen, dass beim Doppelklick die Daten aus dem Listview wieder in die Textboxen übernommen werden und ich diese ändern kann, ohne das Sie in der nächsten Reihe wieder neu geschrieben werden, sondern das die ausgewählte "Datenreihe" dementsprechend abgeändert wird. Und is es auch möglich, dass ich die Daten an richtige Stelle schreibe, ohne das Arbeitsblatt immer mit .select auszuwählen. Geht das nicht mit Sheets("Profile")? Vielen Dank für eure Hilfe und Grüße
Basti_fantasti
Anzeige