Office: Neue Zeile oberhalb einfügen und Werte löschen

Servus,

ich bekomme es einfach nicht hin, eine neue Zeile einzufügen per Makro.
Bedingung ist dabei das wie im angehängten Beispiel.

Die neue Zeile soll dabei oberhalb der Zeile 2 eingefügt werden mit dem Format und den Formeln aus Zeile 2. Die Werte sollen leer sein.

Im Beispiel ist nur eine Formel in der Spalte H vorhanden. In der original Datei hab ich mehrere.

Danke euch schon mal im vorraus.

Dom

:)

 

Hallo neodan,

Hab das Makro mal mit dem Makrorecorder aufgezeichnet.
Hier der Code:

Code:

Hoffe das hilft.
LG
BrunMi

 

Sorry aber hast du das mal getestet? Das funktioniert nicht. Es wird weder die Formatierung übernommen noch die Formeln.

 

Hallo,

Hätte ich eigentlich schon getestet..
Im Anhang findest du deine Beispieldatei.
Probiers da mal aus.

LG
BrunMi

 

Moin Dominique,

schau mal hier:
Code:

 

Da ist der Code aber auch deutlich länger. Dort funktioniert es, aber ich suche nach einem eleganteren weg, da meine original Datei mehrere Formeln und formate hat die ich nicht wie in deinem Beispiel Code alle einzeln angehen kann.

Ich hatte an sowas gedacht:

 

\@Mücke:

Im dem Beispiel funktioniert es super, aber wenn ich es auf meine original Datei übertrage, löscht er auch die "Summen Formeln" die ich habe.

Das liegt wohl daran, weil diese Formeln in der Zeile verteilt liegen und ich von B:GG komplett blank mache.
Wie kann ich einzelne Zellen von ClearContents ausschließen oder macht es mehr Sinn die Formeln per Makro neu einzufügen?

 

Moin,

du könntest die zu löschenden Bereiche z.B. so angeben:
Code:

Wie viele Spalten mit Formeln sind es denn?

 

Es sind bisher 4 Formeln. Ich füge die aber gerade einfach wieder per Makro hinzu, geht auch.

Wie verhält es sich mit Bedingten formatierungen?

 

Moin,

bei mir kein Problem *Smilie

 

ok, danke dir