Sub
Letzt_Zeile_Befuellen()
Dim
CLetzte
As
Long
Dim
ws
As
Worksheet:
Set
ws = Worksheets(
"Eingabe"
)
With
Worksheets(
"Aufträge"
)
CLetzte = .Cells(.Rows.Count, 3).
End
(xlUp).Row
If
CLetzte < 4
Then
CLetzte = 4
.Cells(CLetzte + 1, 2).Value = ws.Range(
"E8"
)
.Cells(CLetzte + 1, 3).Value = ws.Range(
"E10"
)
.Cells(CLetzte + 1, 4).Value = ws.Range(
"E12"
)
.Cells(CLetzte + 1, 7).Value = ws.Range(
"E14"
)
End
With
End
Sub