Sub Makro_Liste()
Dim RR As Long
With Sheets("Tabelle1")
.Rows("1:1").Insert Shift:=xlDown
RR = .Cells.SpecialCells(xlCellTypeLastCell).Row
.Columns("L:L").Delete Shift:=xlToLeft
.Columns("I:J").Delete Shift:=xlToLeft
.Range("D3:E" & RR).Style = "Currency"
With .Range("D1:E1")
.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[" & RR - 1 & "]C)"
.Style = "Currency"
.Font.Bold = True
End With
.Range("J3:J" & RR).FormulaR1C1 = "=LEFT(RC[-8],5)"
.Range("K3:K" & RR).FormulaR1C1 = "=RIGHT(RC[-9],3)"
With .Range("J1")
.FormulaR1C1 = "=SUBTOTAL(2,R[2]C[-8]:R[" & RR - 1 & "]C[-8])"
.Font.Bold = True
End With
.Range("L3") = "erledigt"
.Range("L4").Select
End With
End Sub