Aber an statt dies zu tun wird immer die erste zeile überschrieben vielleicht kann mir jemand helfen
Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
Dim zeile As Long, z As Integer
Dim artikel As String, einheit As String, preis As Currency
Dim ersteZeile As Integer, letztezeile As Integer
zeile = ActiveCell.Row
artikel = Cells(zeile, 2)
einheit = Cells(zeile, 3)
preis = Cells(zeile, 4)
With Worksheets("Rechnung")
.activatee
letztezeile = 16
.Cells(letztezeile, 1).Select
Do
If Cells(letztezeile, 1).Value = "" Then Exit Do
letztezeile = letzezeile + 1
Loop
.Cells(letztezeile, 2).Value = einheit
.Cells(letztezeile, 3).Value = artikel
.Cells(letztezeile, 4).Value = preis
.Cells(letztezeile, 1).Select
End With
End Sub