Neue Zeile einfügen + Formeln übernehmen

[Raoul21]

Hi

ich glaube, man kann nicht Formeln allein, sehr wohl aber Konstante allein und Konstante zusammen mit Formeln ansprechen.

Folgender Code

Code:

ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.EntireRow.Offset(1).SpecialCells(xlCellTypeConstants).Clear

kopiert die Zeile der aktiven Zelle,
fügt darunter in einer neuen Zeile das Kopierte ein,
löscht in dieser neuen Zeile alle konstanten Werte, also nicht die Formeln.

Übrigens:
Deine dritte Zeile fügt das zuvor Kopierte an der selben Stelle ein.

Gruß, Raoul

[Case]

Hallo, :19:

mir liegt der Sauerbraten zu schwer im Bauch, sprich - hab keine Lust gerade danach zu schauen. Deshalb erstmal eine Notlösung: :21:

Code:

'.....
ActiveCell.Offset(1).EntireRow.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
ActiveCell.Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
'.....

[RPP63]

… Sauerbraten …

Was ist nur aus der Klimakatastrophe geworden?
Sauerbraten Mitte Juli?
Wir haben uns heute einen Nacken-Schmorbraten vom Schwein gegönnt.
Kein Scherz: Kilo-Preis 15,90 €
Das Tier wurde wohl nicht profan geschlachtet, sondern unter Hypnose tot gestreichelt.
(das arme Tier musste sich überwiegend von Eicheln ernähren)

Lecker!

[/off topic]

[xlsxvba]

Hi

ich glaube, man kann nicht Formeln allein, sehr wohl aber Konstante allein und Konstante zusammen mit Formeln ansprechen.

Folgender Code

Code:

ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.EntireRow.Offset(1).SpecialCells(xlCellTypeConstants).Clear

kopiert die Zeile der aktiven Zelle,
fügt darunter in einer neuen Zeile das Kopierte ein,
löscht in dieser neuen Zeile alle konstanten Werte, also nicht die Formeln.

Übrigens:
Deine dritte Zeile fügt das zuvor Kopierte an der selben Stelle ein.

Gruß, Raoul

Hi Raoul,

super vielen Dank :)!!
Einen Fehler müsste ich jedoch noch abfangen: und zwar, wenn ich dann eine Zeile in einer der neu erstellen Zeilen mit dem Makro erstellen möchte kommt folgender Fehler:
"Laufzeitfehler 1004 - Keine Zellen gefunden" ...

---

Hallo, :19:

mir liegt der Sauerbraten zu schwer im Bauch, sprich - hab keine Lust gerade danach zu schauen. Deshalb erstmal eine Notlösung: :21:

Code:

'.....
ActiveCell.Offset(1).EntireRow.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
ActiveCell.Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
'.....

Danke Dir auch, nur werden hiermit leider auch Werte kopiert ...

[xlsxvba]

Final nun so:

Code:

   With ActiveCell.EntireRow
      .Copy
      .Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       On Error Resume Next
      .Offset(1).SpecialCells(xlCellTypeConstants).Clear
      Application.CutCopyMode = False
      On Error GoTo 0
   End With