EXCEL - Formel mittels Makro kopieren, jedoch mit angepasster Formel

Hallo Jay,
<br />sorry, da ist ein Tippfehler drin.
<br />statt .Formula = "=Kalkulation!" & Cells(4 + 1, 1).Address
<br />sollte es
<br /> .Formula = "=Kalkulation!" & Cells(4 + i, 1).Address
<br />lauten.
<br />Claus
<br />

Liiiiieber Claus
<br />Aller liebsten Dank für deine Hilfe, es hat funktioniert!!!!
<br />Genial, bin wirklich sehr dankbar für deine Zeit.
<br />Jetzt kann ich es im grossen File ausprobieren
<br />und versuchen dein Code zu verstehen
<br />LG
<br />Jay
<br />

Lieber Claus
<br />Vielen Dank für deine ausführliche Hilfe.
<br />Das Makro läuft auf jeden Fall effizienter durch, es ist schon fast perfekt.
<br />Wenn ich einen Absoluten Bezug einfüge, dann kopiert er diesen auch und somit erscheint jeweils genau die gleiche Artikelnummer.
<br />Kann ich der Formel manuell sagen, sie soll von "=Kalkulation!A5" zu "=Kalkulation!A6" rechnen?
<br />Vielen Dank für deine Beispieldatei.
<br />Auch hier, wenn ich X = 5 mache, dann nimmt er immer wieder die mit dem absoluten Bezug.
<br />Oder mache ich etwas falsch?
<br />Wenn ich nur ein Artikel hinzufüge (X=1) dann funktioniert es lustigerweise.
<br />Nochmals Danke für deine Zeit.
<br />Jay
<br />

Hallo,
<br />schreibe im ersten Block die Formel mit absoluten Bezügen, also
<br />Zeile 4: =Kalkulation!$H$4
<br />Zeile 5: =Kalkulation!$H$5
<br />usw.
<br />Verwende dann diesen Code zum Kopieren:
<br />

Sub Kopieren()

Dim x As Integer, i As Integer

Dim LRow As Long

With ActiveSheet

x = .Range("E1")

For i = 1 To x

LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

.Range("A4:O16").Copy .Cells(LRow + 1, 1)

With .Range(.Cells(LRow + 1, 1), .Cells(LRow + 13, 1))

.Formula = "=Kalkulation!" & Cells(4 + 1, 1).Address

End With

Next

End With

End Sub

Oder schau mal hier rein:
<br />https://1drv.ms/x/s!AqMiGBK2qniTgfMOVx3QS7e_2dgGUQ?e=HlPRJC
<br />Claus
<br />

Hallo,

eine Zelle kann nur eine Formel oder einen festen Wert beinhalten. Wenn du eine Formel mit einem festen Wert überschreibst, ist die Formel weg. Da du kein VBA benutzen kannst, nützt es auch nichts, die Formel auszulagern, denn du müsstest
dann in der gewünschten Zelle wiederum eine Formel zum Auswerten des Formeltextes haben (Excel4-Makro).

Speichere deine Mappe mit den Formeln als Excel-Vorlage. Wenn diese von einem User geöffnet wird, wird sie als Kopie geöffnet. Der User kann dann feste Werte eingeben und die Kopie unter einem anderen Namen speichern. Die Kopie bleibt unangetastet und die
Formeln darin bleiben bestehen.

Claus