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
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
'.....
(12.07.2020, 12:32)Case schrieb: [ -> ]… 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]
(12.07.2020, 12:31)Raoul21 schrieb: [ -> ]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" ...
(12.07.2020, 12:32)Case schrieb: [ -> ]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 ...