Hallo!
Ich habe ein Prblem und komme nicht mehr weiter. Ich habe ein Userform für diverse Daten angelegt und habe es auch geschafft, dass sie in das richtige Arbeitsblatt in die jeweils dafür vorgesehenen Spalten eingefügt werden.
Ich brauche sie aber nicht in derselben Zeile sondern immer in die nächste freie.
Könnt Ihr mir helfen und sagen, was ich an dem Code falsch gemacht habe?
Private Sub CommandButton1_Click()
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 2) = TextBox1
Cells(z, 3) = TextBox2
Cells(z, 4) = TextBox3
Cells(z, 5) = TextBox4
Cells(z, 6) = TextBox5
Cells(z, 7) = TextBox6
Cells(z, 10) = TextBox7
Cells(z, 8) = TextBox8
Cells(z, 24) = TextBox9
Cells(z, 9) = TextBox10
Cells(z, 22) = TextBox12
Cells(z, 12) = TextBox13
Cells(z, 15) = TextBox14
Cells(z, 23) = TextBox15
End Sub
Vielen Dank im Voraus
Ich habe ein Prblem und komme nicht mehr weiter. Ich habe ein Userform für diverse Daten angelegt und habe es auch geschafft, dass sie in das richtige Arbeitsblatt in die jeweils dafür vorgesehenen Spalten eingefügt werden.
Ich brauche sie aber nicht in derselben Zeile sondern immer in die nächste freie.
Könnt Ihr mir helfen und sagen, was ich an dem Code falsch gemacht habe?
Private Sub CommandButton1_Click()
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 2) = TextBox1
Cells(z, 3) = TextBox2
Cells(z, 4) = TextBox3
Cells(z, 5) = TextBox4
Cells(z, 6) = TextBox5
Cells(z, 7) = TextBox6
Cells(z, 10) = TextBox7
Cells(z, 8) = TextBox8
Cells(z, 24) = TextBox9
Cells(z, 9) = TextBox10
Cells(z, 22) = TextBox12
Cells(z, 12) = TextBox13
Cells(z, 15) = TextBox14
Cells(z, 23) = TextBox15
End Sub
Vielen Dank im Voraus