Inhalt Textbox in Zelle, geht nicht bei allen!
31.05.2017 08:54:33
Zoe
ich habe mir gerade eine Userform erstellt, in der man die Daten eingibt und die die Daten dann in meine Tabelle einträgt. Hat bei der vorherigen Arbeitsmappe wunderbar geklappt. In dieser Areitsmappe macht er das jetzt nur für Spalte A und in die anderen trägt er nichts ein? Wieso... Kann mir jemand weiterhelfen?
Private Sub CommandButton1_Click()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = TextBox1.Text 'Datum
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = TextBox2.Text 'Zeit
Cells(Cells(Rows.Count, "C").End(xlUp).Row + 1, "C").Value = TextBox3.Text 'Temperatur
Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, "D").Value = TextBox4.Text 'Prüfer
Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E").Value = TextBox5.Text 'Probennummer
Cells(Cells(Rows.Count, "F").End(xlUp).Row + 1, "F").Value = CDbl(TextBox6.Text)
Cells(Cells(Rows.Count, "G").End(xlUp).Row + 1, "G").Value = CDbl(TextBox7.Text)
Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H").Value = CDbl(TextBox8.Text)
Cells(Cells(Rows.Count, "I").End(xlUp).Row + 1, "I").Value = CDbl(TextBox9.Text)
Cells(Cells(Rows.Count, "J").End(xlUp).Row + 1, "J").Value = CDbl(TextBox11.Text)
Cells(Cells(Rows.Count, "K").End(xlUp).Row + 1, "K").Value = CDbl(TextBox10.Text)
Unload UserForm1
End Sub
Viele Grüße,
Zoe