Sub formeln()
Dim C As Excel.Range
Dim WS As Excel.Worksheet
Dim FX As String
' Auswahl nach Bezeichnung auf dem Tab
Set WS = Worksheets("Sheet1")
' entspricht
' Auswahl nach fortlaufender Nummer
Set WS = Worksheets(4)
' entspricht dem Name name im VBA Properties Window (F4)
Set WS = Sheet1
WS.Cells(1).Formula = "=now()"
WS.Cells(2, 1).Formula = "=now()"
WS.Cells(3, 1).FormulaR1C1 = "=SUM(R[-4]C:R[-2]C)"
Worksheets("Sheet1").Range("A6").Formula = "=SUM(A1:A6)"
 
For Each C In WS.Columns(2).Cells
    C.Formula = "=WEEKDAY(RC[-1])"
    If C.Address = "$B$7" Then Exit For
    If C.Row = 7 Then Exit For
Next C
FX = "=month($A$1)"
ActiveWorkbook.Names.Add "BEREICH", "=Sheet1!C1:C6"
For Each C In Range("BEREICH").Cells
    C.Formula = Replace(FX, "1", C.Row)
Next C
End Sub