Office: Excel: Zeile einfügen und Formel von vorherigen übernehmen

Hallo zusammen

Ich komme da mit meinen VBA-Kenntnissen leider nicht mehr weiter. Ich möchte mittels VBA eine Zeile vor der letzten benutzen Zeile (Totale) einfügen mit Übernahme der Formatierung und Formeln aus der vorletzten.

Beispiel:

in Zeile 2 befinden sich folgende Angabe:
A2: Text
B2: z.B. Zahl 5
C2: z.B. Zahl 6
D2: Formel B2*C2
A6: sonstige Formel etc

A3: Text
B3: z.B. Zahl 5
C3: z.B. Zahl 6
D3: Formel B3*C3
E3: weitere Formel etc

in Zeile C findet man dann die Totale:
A4: Total
B4: Total B2 + B3 = 10
C4: Total C2 + C3 = 12
D4: Total D2 + D3 = 60
E4: Total der Formelberechnungen ausE2 und E3
etc

Jetzt möchte ich mittels VBA, dass mittels Button vor der Zeile mit den Totalen (hier in Zeile A), eine neue Zeile eingefügt wird und dabei die Formatierung und Formeln aus der Zeile A übernommen werden.

Neu werden dann die Totale in der Zeile D wiedergegeben.

Kann mir dabei jemand helfen?

Danke schon mal.

:)

 

Moin,

zeichne folgenden Code auf:

• Zeile mit Total markieren
• eine ganze Zeile einfügen
• Jede Spalte mit Formel(n) von der darüber liegenden Zelle kopieren

Wie du die Total-Zeile feststellst, liegt am Aufbau deiner Datei. Entweder letzte Zeile feststellen, wissen oder per Suchen. Ich nehme an, dass das Original doch noch etwas anders aussieht.

 

Hallo Cochpa

Also ich hab deine Frage folgendermaßen verstanden:
" Füge eine Zeile vor der Summenzeile ein"
"In diese Zeile sollen Werte und Formel der Zeile 2 (Deiner BSP.Datei)"

Ich habe ergänzt
"Passe die Summenspalte an" (Gehört für mich dazu)

Was ich nicht verstehe, welchen Sinn es hat immer wieder die 2. Spalte einzufügen. Aber das wirst du am besten wissen.

Hier nun aber der Code sicher nicht der schönste, aber ohne zu wissen was das (weitere) Ziel ist, auf jeden Fall praktikabel
Code:

Grüße
und Rückmeldung wär nett

 

Hallo Jack - Danke für den Code - Funktioniert. Habe ihn auf meine Originaltabelle noch entsprechend angepasst. Nochmals vielen Dank!