r1c1 Formel funktioniert nicht

Question

Ich versuche, Werte mit Spalte J und Tie Breaker in Spalte K mit dem Ergebnis Bestückung in Spalte N rankt. Spalte J & K sind Werte.

Irgendwie erzeugt es nur einen Wert, wo immer auf meine Zelle gezeigt wird, was bedeutet, wenn ich die VBA-Codes in Zelle C19 ausführen werde, wird nur Wert 1 in C19, nicht aus N6, wo ich die Ergebnisse haben will.

Hier sind meine Codes,

Sub test() 
Dim LR1 As Long 
LR1 = Range("J" & Rows.Count).End(xlUp).Row 
With Range("N6:N" & LR1) 
    ActiveCell.FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))" 
End With 
End Sub 

Ich bin nicht sicher, was falsch gelaufen ist. Ich habe versucht, es manuell mit der Excel-Formel und es funktioniert gut, aber nicht meine VBA-Codes.

Answer 1

ActiveCell ist Ihr Problem.

ändern ActiveCell.FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))"

Um .FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))"

dass entfernen und es sollte das tun, was Sie wollen.

Sie möchten Ihre Range Referenzen vollständig qualifizieren, so dass sie nicht von der ActiveSheet abhängen. Dadurch erhalten Sie konsistentes Verhalten und Ergebnisse.