wie muss der nachstehende code aussehen, damit der wert der textbox1 in die letzte freie zelle der spalte a auf dem tabellenblatt1 und der wert der textbox2 in die letzte freie zelle der spalte a auf dem tabellenblatt2 eingetragen wird ?
in der recherche habe ich nichts leider nichts gefunden.
wäre toll, wenn mir jemand auf die sprünge helfen könnte.
Do Until Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox2.Text
ActiveCell.Offset(0, 1).Range("A1").Select
herzlichen dank
andreas