Office: (Office 365) Textboxen

Hallo Excel Spezialisten
Habe in einer User Form Textboxen und ein CommandButton als Befehl. Auf den Klick darauf
werden die Daten inTabelle geschrieben. Die Textboxen werden gelöscht und die Daten in Zeile 20 werden eingetragen. Wenn ich nun neue Daten in der Textbox eingebe wird das wieder nur in Zeile 20 eingetragen überschrieben. Möcht aber diese Daten erhalten bleiben und untereinader geschrieben werden. Als in Zeile 20 21 usw.
Vielen Dank
Freundliche grüsse
Hene

Private Sub CommandButton14_Click()
With Worksheets("Januar")
i = .Cells(Rows.Count, 20).End(xlUp).Offset(20, 0).Row

.Cells(i, 2).Value = UserForm2.TextBox1.Text
.Cells(i, 3).Value = UserForm2.TextBox2.Text
UserForm2.TextBox2.Text = ""
.Cells(i, 4).Value = UserForm2.TextBox3.Text
UserForm2.TextBox3.Text = ""
.Cells(i, 5).Value = UserForm2.TextBox4.Text
UserForm2.TextBox4.Text = ""
.Cells(i, 6).Value = UserForm2.TextBox5.Text
UserForm2.TextBox5.Text = ""
.Cells(i, 7).Value = UserForm2.TextBox6.Text
UserForm2.TextBox6.Text = ""
.Cells(i, 8).Value = UserForm2.TextBox7.Text
UserForm2.TextBox7.Text = ""
.Cells(i, 9).Value = UserForm2.TextBox8.Text
UserForm2.TextBox8.Text = ""
.Cells(i, 10).Value = UserForm2.TextBox9.Text
UserForm2.TextBox9.Text = ""
.Cells(i, 11).Value = UserForm2.TextBox10.Text
UserForm2.TextBox11.Text = ""
End With
End Sub
die Tabelle geschrieben.

 

Hi,

dann solltest du deine letzte Zeit nicht in Spalte 20 (=S) bestimmen, sondern vielleicht doch in einer der Spalten B:K.
Und ich hoffe, dass du auch wirklich Text in den Zellen stehen haben willst und keine Zahlen...

 

Hallo Helmut
Habe mich wahrcheinlich nicht gut erklärt. Ich möchte anhand der User Form die Inhalt der Textbox die Daten in der Tabelle einfügen.
Jetzt wird mit diesem Code die Zeile 20 von A bis K gefüllt. Wenn ich die Textboxen wider mit anderem Text fülle wird der Eintrag in Zeile A20 bis K 20 gelöscht. Möchte aber den neuen eintrag in Zeile 21 A bis K20 einfügen. usw.
Vielen Dank Dank
Freundliche grüsse
Hene

 

Hi,

vielleicht so:

Code:

i = .Cells(Rows.Count, 20).End(xlUp).Offset(20, 0).Row + 1

Bedingung ist, dass Spalte 20 tatsächlich bis zur selben letzten Zeile wie deine anderen Spalten gefüllt ist. Andernfalls vielleicht besser anstelle Spalte 20 die Spalte 2 verwenden, denn diese scheint lt. deinem Code offensichtlich immer gefüllt zu werden.

---

 

Hallo,

es wäre leichter, einen Lösungsvorschlag zu erarbeiten, wenn man deine Datei kennen würde.

Noch ein Hinweis: ich unterstelle mal, dass sich die Schaltfläche auf dem UserForm befindet. Dann ist es überflüssig, bei jedem Objekt auf das UserForm zu referenzieren. Also nicht: .Cells(i, 2).Value = UserForm2.TextBox1.Text sondern: .Cells(i, 2).Value = TextBox1.Text

 

Hi Hene,

ich hatte dich schon korrekt verstanden. Aber du offensichtlich mich nicht. Du such bisher mit
i = .Cells(Rows.Count, 20).End(xlUp).Offset(20, 0).Row
in Spalte 20 nach der letzten Zeile. Von dort aus gehst du 20 Zeilen nach unten und holst dir die Zeilennummer in die Variable i. Also, wenn deine Spalte 20 (entspricht Spalte S) komplett leer ist, dann werden deine Werte in Zeile 21 (nicht 20) eingetragen. Also verwende
i = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Und alles ist gut.

 

Hallo Helmut
Vielen Dank für den Code und die hilfe Super
Freundliche Grüsse
Hene