Hi zusammen,

ich habe folgendes (ganz grob und simple zusammengefasst):

• Tabelle mit einzelnen Personen je Zeile
• In den Spalten werden Wochen durchgezählt
• Jede Zelle beinhaltet die Arbeitszeit pro Person pro Woche
• In der ersten Zeile steht die Summe der Arbeitszeiten aller Personen pro Woche

Was ich machen will:

• Makro schreiben (mit einem Button), dass immer eine Person hinzufügt und dabei die Summenformel adaptiert

So, Button mit Person hinzufügen klappt. Allerdings ändert sich die Formel dabei nicht. Sprich, das Problem ist, wenn ich per Makro den neuen Mitarbeiter einfüge, werden die relativen Verweise in der Formel nicht adaptiert und deswegen die Summe aller Mitarbeiter wird nicht mitgezählt:

    Rows("11:14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("G8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(R[5]C,R[9]C,R[13]C,R[17]C)"
    Range("G8").Select
    Selection.AutoFill Destination:=Range("G8:W8"), Type:=xlFillDefault
    Range("G8:W8").Select

Hat jemand eine Idee?