Sub Teilaufgabehinzufügen()
'
' Teilaufgabehinzufügen Makro
' Eine Teilaufgabe wird am Ende der Tabelle eingefügt
'
' Tastenkombination: Strg+t
'
Sheets("Makro").Select
Rows("14:14").Select
Selection.Copy
Sheets("Tabelle3").Select
LRow = Cells(Rows.Count, 5).End(xlUp).Row
Rows(LRow + 1).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & LRow - 2 & ":E" & LRow - 2).Copy
Range("E9").Select
ActiveCell.FormulaR1C1 = _
"=R[1]C[-1]*R[1]C+R[2]C[-1]*R[2]C+R[3]C[-1]*R[3]C+R[4]C[-1]*R[4]C+R[7]C[-1]*R[7]C+" & _
"R[10]C[-1]*R[10]C+R[5]C[-1]*R[5]C+R[6]C[-1]*R[6]C+R[8]C[-1]*R[8]C+R[9]C[-1]*R[9]C+R[11]C[-1]"
End Sub