Code anpassen
17.07.2002 18:24:41
Jens
Private Sub InTabelle_Click()
Dim intRow As Integer
intRow = Worksheets("Rechnung").Cells(Rows.Count, 2).End(xlUp).Row + 1
With Worksheets("Rechnung")
.Cells(intRow, 1).FormulaR1C1 = "=IF(R[-1]C = ""Lfd.-Nr."",1,(R[-1]C)+1)"
.Cells(intRow, 2) = TextBox1.Text & " " & ComboBox1.Text
.Cells(intRow, 3) = Gesamtpreis.Text
.Cells(intRow, 5).FormulaR1C1 = "=rc[-2]*rc[-1]"
End With
End Sub
Vielen Dank im voraus Jens