Versuchs mal damit.
Sub transfer_werte()
Dim letzte As Long
With Worksheets("Bestellungen")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(letzte + 1, 1).Value = Worksheets("Eingabe").Range("I7")
.Cells(letzte + 1, 2).Value = Worksheets("Eingabe").Range("I9")
End With
End Sub
|