.End(xlUp).Row + 1 funktioniert nicht
01.06.2017 07:59:43
Zoe
ich habe eine UserForm, mit der ich meine Daten in eine Tabelle eintrage und zwar immer in die _ letzte frei Zeile. Nut funktioniert das nicht bei der ersten Eintragung, weil die darüberliegende Zelle (Überschrift der Zeile) eine verbundene Zelle ist (3=1). Woher kommt das, wie ändere ich das? (Bei den ersten vier funktioniert es nicht, bei den anderen funktioniert es).
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 = CDbl(TextBox3.Text) 'Temperatur
Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, "D").Value = TextBox4.Text 'Prüfer
Cells(Cells(Rows.Count, "L").End(xlUp).Row + 1, "L").Value = CDbl(TextBox5.Text) ' _
Referenzeindruck
Cells(Cells(Rows.Count, "O").End(xlUp).Row + 1, "O").Value = CDbl(TextBox6.Text) '1. Messung
Cells(Cells(Rows.Count, "P").End(xlUp).Row + 1, "P").Value = CDbl(TextBox7.Text) '2. Messung
Cells(Cells(Rows.Count, "Q").End(xlUp).Row + 1, "Q").Value = CDbl(TextBox8.Text) '3. Messung
Cells(Cells(Rows.Count, "R").End(xlUp).Row + 1, "R").Value = CDbl(TextBox9.Text) '4. Messung
Cells(Cells(Rows.Count, "S").End(xlUp).Row + 1, "S").Value = CDbl(TextBox10.Text) '5. Messung
Unload UserForm1
End Sub
Viele Grüße,
Zoe