Makro Summenprdoukt mit/ohne Recorder
14.09.2005 10:14:34
Gisela
mit folgendem Makro führe ich einige Berechnungen durch.
Hiervon muß ich eine große Anzahl verwenden.
Gibt es eine Möglichkeit das ganze zu vereinfachen?
Da ich leider nur Recorderkenntnisse habe, ist das ganze aufgezeichnet und mit meinen bescheidenen Kenntnissen etwas angepasst.
Sub Testrechnen()
[H71].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=301)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H72].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=302)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H73].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=303)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H74].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=304)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H75].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=305)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H76].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=306)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H77].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=307)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H78].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=308)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H79].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=309)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H80].FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=310)*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
[H71:H80].Copy
[H71].PasteSpecial (xlPasteValues)
End Sub
Herzlichen Dank für jede Hilfe
Gisela