Thema Datum  Von Nutzer Rating
Antwort
Rot Reihen kopieren und einfügen und dabei vorhandene Formeln adaptieren
14.09.2021 16:00:25 Tobi
NotSolved
15.09.2021 10:01:16 Ulrich
NotSolved

Ansicht des Beitrags:
Von:
Tobi
Datum:
14.09.2021 16:00:25
Views:
30
Rating: Antwort:
  Ja
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?


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot Reihen kopieren und einfügen und dabei vorhandene Formeln adaptieren
14.09.2021 16:00:25 Tobi
NotSolved
15.09.2021 10:01:16 Ulrich
NotSolved