Excel Makro - Formel für mehrere Spalten nach unten kopieren - Fehler

[AshleyxDD]

Hallo zusammen,

für die angefügte Datei habe ich ein Makro erstellt. In Spalte K12 bis DB12 habe ich eine Formel eingefügt und mit untenstehenden Makro wollte ich sie für die Spalten mit dem Namen "Projected Inventory" in Spalte I nach unten kopieren. 
Allerdings kopiert es mir z. B. ab Zelle M20 die falsche Formel rüber: Die Formel müsste =N20-M17+M18 anstatt =M20-N17+N18 lauten.
In der Zelle M28 stimmt die Formel komischerweise wieder. Der Fehler tritt bei jeder zweiten Zeile auf. 

Nachstehend meine Formel, welche ich durch googlen gefunden habe:

    Range("K12").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-R[-3]C+R[-2]C"
    Range("K12").Select
    Selection.AutoFill Destination:=Range("K12:DB12"), Type:=xlFillDefault
    Range("K12:DB12").Select
   
   
   
    ActiveSheet.Range("$I$1:$I$849").AutoFilter Field:=1, Criteria1:= _
        "Projected Inventory"
      Range("K12:DB12" & Cells(Rows.Count, 9).End(xlUp).Row).FormulaR1C1 = Range("K12").FormulaR1C1
      Range("L12:DB12" & Cells(Rows.Count, 9).End(xlUp).Row).FormulaR1C1 = Range("L12:DB12").FormulaR1C1
          ActiveSheet.ShowAllData


Könnt ihr den Fehler finden?

Viele Grüße
Ashley

[BoskoBiati]

Hi,

angefügte Datei

Wo?

[EA1950]

Hallo,

Code:

    Range("K12").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-R[-3]C+R[-2]C"

vorgenannter Code ergibt in Zelle K12 folgende Formel: =J12-K9+K10

Alles andere lässt sich ohne Datei schwerlich überprüfen.

[AshleyxDD]

Hallo zusammen,

sorry, die Datei war zu groß. Ich habe ein paar Zeilen gelöscht. Anbei nun die Datei.

Viele Grüße
Ashley

[AshleyxDD]

Hallo zusammen,

durch die Änderung wie unten hat es nun funktioniert:

Code:

    ActiveSheet.Range("$I$1:$I$849").AutoFilter Field:=1, Criteria1:= _
    "Projected Inventory"
    Range("K12:DB" & Cells(Rows.Count, 9).End(xlUp).Row).FormulaR1C1 = "=RC[-1]-R[-3]C+R[-2]C"
    ActiveSheet.ShowAllData

[BoskoBiati]

Hi,

klar:

https://www.herber.de/forum/messages/1988427.html