Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Reihen kopieren und einfügen und dabei vorhandene Formeln adaptieren |
14.09.2021 16:00:25 |
Tobi |
|
|
|
15.09.2021 10:01:16 |
Ulrich |
|
|
|
23.09.2021 02:15:53 |
Nobody |
|
|
Von:
Tobi |
Datum:
14.09.2021 16:00:25 |
Views:
946 |
Rating:
|
Antwort:
|
Thema:
Reihen kopieren und einfügen und dabei vorhandene Formeln adaptieren |
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?
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Reihen kopieren und einfügen und dabei vorhandene Formeln adaptieren |
14.09.2021 16:00:25 |
Tobi |
|
|
|
15.09.2021 10:01:16 |
Ulrich |
|
|
|
23.09.2021 02:15:53 |
Nobody |
|
|