kann mir bitte jemand helfen und sagen, wie das ganze mit weniger select auskommt oder kürzer zu fassen ist. Ich habe von diesen Berechnungen eine ganze Menge und habs bei der Formeleingabe für die erste Zelle schon hingekriegt. Nur wie sieht das dann bei der Eintragung in die weiteren (C7:C10 oder D7:D10) Zellen aus. Gibts da auch noch eine Möglichkeit, das kürzer zu fassen?
Range("C7").FormulaR1C1 = "=SUMPRODUCT((PrStatVB_C! R3C3:R5000C3=Patene!RC2)*(PrStatVB_C!R3C3:R5000C3""""))-SUMPRODUCT((PrStatVB_C!R3C3:R5000C3=Patene!RC2)*(PrStatVB_C!R3C25:R5000C25=""ja""))"
Range("C7").Select
Selection.AutoFill Destination:=Range("C7:C10"), Type:=xlFillDefault
Range("C7:C10").Select
Range("D7").FormulaR1C1 = "=IF(RC3=0,"""",SUMPRODUCT((PrStatVB_C!R3C3:R5000C3=Patene!RC2)*(PrStatVB_C!R3C23:R5000C23""""))-SUMPRODUCT((PrStatVB_C!R3C3:R5000C3=Patene!RC2)*(PrStatVB_C!R3C25:R5000C25"""")))"
Range("D7").Select
Selection.AutoFill Destination:=Range("D7:D10"), Type:=xlFillDefault
Range("D7:D10").Select
Vielen Dank für jede Hilfe
Georg