CommanButton zum ändern von Daten Verfasst am: 09.05.2011, 10:32
Hallo,
ich bin neu hier und auch Einsteiger bei vba. Ich habe eine Eingabemaske programmiert und es haut auch soweit alles hin, aber bei dem CommandButton, der eine Zeile mit Daten über TextBoxen ändern soll, klappt dies einfach nicht.
Also er liest sich bei einem Klick auf die entsprechende Zeile in der Listbox die Daten in die Textboxen und wenn man in diesen Textboxen etwas ändert, soll die Änderung auch in die Tabelle übernommen werde. Bis jetzt passiert aber nichts.
Kann mir vielleicht jemand weiter helfen?
Hier der Code:
Private Sub CommandButton3_Click()
'Datensätze ändern
Dim lng As Long
Dim i As Integer
On Error Resume Next
lng = UserForm3.ListBox1.Column(5)
Sheets("Tabelle").Activate
With UserForm3 'schreibt Daten aus Textbox in Tabelle
Cells(lng + 3, 1).Value = .TextBox1.Value
Cells(lng + 3, 2).Value = .TextBox25.Value
Cells(lng + 3, 3).Value = .TextBox26.Value
'..usw
'ListBox aktualisieren
i = .ListBox1.ListIndex
.ListBox1.Column(0, i) = .TextBox1.Value
.ListBox1.Column(1, i) = .TextBox25.Value
.ListBox1.Column(2, i) = .TextBox26.Value
'..usw
End With
End Sub
Registrieren
Login
