Excel Makro - Zeile Kopieren, Formelwert um eins erhöhen.

Hallo Claus
<br />
Danke für deinen Input.
<br />Für eine einmalige Lösung würde es sicher klappen mit einem SVerweis.
<br />Jedoch ist das Dokument folgendermassen aufgebaut...
<br />Im ersten Register ist die Master Datei (Quellmatrix), auf welcher man entscheidet wie viele Datensätze erstellt werden und die Infos einträgt.
<br />Ca. 10 Register greifen simultan auf die Quellmatrix zu und lesen Daten aus.
<br />Per Makro werden dann jeweils die neuen X Zeilen erstellt. Meist wird nur eine Zeile kopiert, das ist einfach und funktioniert.
<br />Jedoch gibt es 3 Register die mehrere Zeilen erstellen und da wäre es eben gut, wenn sich die Formel nur um einen Wert erhöht, anstatt den X-Wert.
<br />Harry
<br />

Lieber Andreas
<br />Danke für deinen Tipp.
<br />Unglücklicherweise funktioniert es nicht ganz wie gewünscht.
<br />Es sollten alle Formeln Kopiert werden und dann nur um einen Wert erhöhen. (In der ganzen Range "A4:O8")
<br />Oder habe ich es falsch gemacht?
<br />


<br />Gruss
<br />Harry
<br />

Ist wie im Blatt, mach das $ vor der Zeile weg:
<br />=Matrix!$B2
<br />https://docs.microsoft.com/de-de/office/vba/api/excel.range.address
<br /> .Formula = "=Kalkulation!" & Cells(4 + i, 1).Address(0,1)
<br />Andreas.
<br />

Hallo Harry,
<br />dann probiere es mal so:
<br />

Sub Test()

Dim LRow As Long

Dim i As Integer, x As Integer

With ActiveSheet

x = .Range("E1")

For i = 1 To x

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

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

.Range(.Cells(LRow + 1, 1), Cells(LRow + 5, 1)).Formula = _

"=Matrix!" & Cells(2 + i, 2).Address

.Range(.Cells(LRow + 1, 4), .Cells(LRow + 5, 4)).Formula = _

"=Matrix!" & Cells(2 + i, 31).Address

.Range(.Cells(LRow + 1, 6), .Cells(LRow + 5, 6)).Formula = _

"=Matrix!" & Cells(2 + i, 15).Address

Next

End With

End Sub

Claus
<br />

Hallo Harry,
<br />wie ist Kalkulation aufgebaut? Vielleicht könnte man die Werte per SVERWEIS oder XVERWEIS übernehmen.
<br />Claus
<br />