Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Summenprdoukt mit/ohne Recorder

Makro Summenprdoukt mit/ohne Recorder
14.09.2005 10:14:34
Gisela
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Summenprdoukt mit/ohne Recorder
14.09.2005 11:48:14
u_
Hallo,
meinst du das so?

Sub Testrechnen()
For i= 71 to 80
cells(i,8).FormulaR1C1 = "=SUMPRODUCT((PrStatVB_FG!R3C28:R2500C28=" &i+230 &")*(PrStatVB_FG!R3C26:R2500C26=""ja""))"
Next i
[H71:H80].Copy
[H71].PasteSpecial (xlPasteValues)
End Sub

Gruß
Geist ist geil!
AW: Makro Summenprdoukt mit/ohne Recorder
14.09.2005 13:30:08
Gisela
Hallo,
vielen Dank für Deine Hilfe. Das sieht sehr gut aus. zumindest bei dieser Berechnung kann ich das gebrauchen. Mal sehen, ob ich das bei den anderen anpassen kann.
Vielen herzlichen Dank
Gisela

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige