Division mit cells
04.11.2017 11:50:04
Sema
ich möchte nach Eingaben in einer Textbox in einer Tabelle noch eine Division durchführen.
Leider meldet mir Excel einen Laufzeitfehler, der durch meine letzte Zeile hervorgerufen wird. Lasse ich das /1.2 weg, tritt der Fehler nicht auf..ich möchte aber durch 20 Dividieren.
Private Sub CommandButton1_Click()
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = TextBox1 'erste freie Zelle in SpalteB
Cells(Cells(Rows.Count, "C").End(xlUp).Row + 1, "C").Value = TextBox2 'erste freie Zelle in SpalteC
Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, "D").Value = TextBox3 'erste freie Zelle in SpalteD
Cells(Cells(Rows.Count, "F").End(xlUp).Row + 1, "F").Value = TextBox4 'erste freie Zelle in SpalteE
Cells(Cells(Rows.Count, "G").End(xlUp).Row + 1, "G").Value = TextBox5 'erste freie Zelle in SpalteG
Cells(Cells(Rows.Count, "K").End(xlUp).Row + 1, "K").Value = CCur(TextBox6) 'erste freie Zelle in SpalteK
Range(Cells(6, 9), Cells(100, 9)).Value = Range(Cells(6, 11), Cells(100, 11)).Value / 1.2
Danke vielmals für einen Tipp