Sub
test()
Dim
lngZiel
As
Long
With
Sheets(
"Tabelle2"
)
lngZiel = .Cells(.Rows.Count, 1).
End
(xlUp).Row + 1
.Cells(lngZiel,
"A"
).Value = Cells(ActiveCell.Row,
"A"
).Value
.Cells(lngZiel,
"B"
).Value = Cells(ActiveCell.Row,
"B"
).Value
.Cells(lngZiel,
"C"
).Value = Cells(ActiveCell.Row,
"C"
).Value
.Cells(lngZiel,
"D"
).Value = Cells(ActiveCell.Row,
"E"
).Value
.Cells(lngZiel,
"E"
).Value = Cells(ActiveCell.Row,
"F"
).Value
End
With
End
Sub