Summenprodukt
11.06.2005 16:08:34
Wolfgang
ich versuche eine Variabele einzubauen klappt aber nicht
so klappt es
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((aktuell!R5C[-2]:R15000C[-2]>0)*(aktuell!R5C[-3]:R15000C[-3]=RC[-3]))"
es sind aber nicht immer 15000 Zeilen.
Es können mehr aber auch weniger sein.
Ich möchte die Zeilen auslesen und den Wert übernehmen.
Sub Makro5()
Dim letztezeile As Long
Worksheets("AV").Activate
letztezeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("SEGEM").Activate
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((aktuell!R5C[-2]:Letztezeile[-2]>0)*(aktuell!R5C[-3]:Letztezeile[-3]=RC[-3]))"
End Sub
Gruß
Wolfgang
Anzeige