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?
|