Office: Makro für Einfügen von Zeilen passt dynamische Formeln nicht an

Hallo liebe Excel- und vba-Experten da draußen,

ich habe ein recht spezifisches Problem mit einem meiner Makros und komme einfach nicht mehr weiter - hoffe also stark auf eure Hilfe!

Ich habe ein Kalkulationstool mit dem ersten Tabellenblatt "Total" und danach eine variable Anzahl an weiteren Blättern, die "WP1" bis "WPn" heißen. Jetzt habe ich ein Makro geschrieben, das es einfach ermöglichen soll, eine beliebige Anzahl an Zeilen unterhalb der aktuell ausgewählten Zeile in allen Tabellenblättern einzufügen. Die Formeln sollen hierbei entsprechend an den neuen Zeilenindex angepasst werden.

Hier mal der Code, der so weit gar nicht schlecht funktioniert:

Code:

Wie schon erwähnt, klappt das bis auf eine einzige Ausnahme sehr gut! Nur mit einer einzigen Formel im Tabellenblatt "Total", die die Summe einer Zelle in allen Tabellenblättern "WP1-WPn" bilden soll, will das mit dem Einfügen einfach nicht klappen!
Hier mal als Beispiel:

Position 1 =SUMME('WP1:WPn'!HW3)
Position 2 =SUMME('WP1:WPn'!HW4)
Position 3 =SUMME('WP1:WPn'!HW5)
Position 4 =SUMME('WP1:WPn'!HW6)
Position 5 =SUMME('WP1:WPn'!HW7)

Wenn ich die Zeile von Position 1 auswähle und angebe, dass darunter 3 Zeilen eingefügt werden sollen, würde ich mir wünschen, dass das hier passiert:

Position 1 =SUMME('WP1:WPn'!HW3)
Position 1 =SUMME('WP1:WPn'!HW4)
Position 1 =SUMME('WP1:WPn'!HW5)
Position 1 =SUMME('WP1:WPn'!HW6)
Position 2 =SUMME('WP1:WPn'!HW7)
Position 3 =SUMME('WP1:WPn'!HW8)
Position 4 =SUMME('WP1:WPn'!HW9)
Position 5 =SUMME('WP1:WPn'!HW10)


Stattdessen passiert aber das hier, was ich mir leider einfach nicht erklären kann:

Position 1 =SUMME('WP1:WPn'!B2)
Position 1 =SUMME('WP1:WPn'!B2)
Position 1 =SUMME('WP1:WPn'!B2)
Position 1 =SUMME('WP1:WPn'!B3)
Position 2 =SUMME('WP1:WPn'!B4)
Position 3 =SUMME('WP1:WPn'!B5)
Position 4 =SUMME('WP1:WPn'!B6)
Position 5 =SUMME('WP1:WPn'!B7)

Wie gesagt, mit allen erdenklichen anderen Formeln funktioniert es so, wie ich mir wünsche *rolleyes.gif*

Über Tipps und Ratschläge würde ich mich sehr freuen, bin inzwischen mit meinem Latein so ziemlich am Ende!

Danke schon mal und viele Grüße!
Caro

:)

 

Hallo Caro,

nur wenige sehe Deine Datei und können nachvollziehen was Du meinst.
In meiner Datei läuft der Code auf weinen Fehler.