mein erster Schritt, Datensaetze ueber ein Userform in einer Tabelle zu erzeugen, gelingt mir mittels unten anstehendem Code. Nun wuerde ich gern noch eine Schaltflaeche im Userform zufuegen, die es mir erlaubt einen existierenden Tabellendatensatz zu finden und im Userform zu editieren. Koennte mir jemand helfen mit dem Code fuer solch eine Schaltflaeche?
Sub cmdSave_Click()
With Sheets("Sheet2")
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A" & Z + 1) = TextBox1.Text
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("B" & Z + 1) = TextBox2.Text
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("C" & Z + 1) = TextBox3.Text
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("D" & Z + 1) = TextBox4.Text
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("E" & Z + 1) = TextBox5.Text
Z = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("F" & Z + 1) = TextBox6.Text
Z = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("G" & Z + 1) = TextBox7.Text
End With
Unload Me
End Sub
Vielen Dank,
Volker