Microsoft Excel

Herbers Excel/VBA-Archiv

Formel ergänzen

Betrifft: Formel ergänzen von: Walter mb
Geschrieben am: 19.08.2008 10:47:18

Guten Morgen,
habe diese Formel gefunden:
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((MONTH(R[3]C[7]:R[64484]C[7])=8)*(R[3]C[7]:R[64484]C[7]<>""""))"
Wie kann ich die 8 durch den Wert der akt.Zelle A1 ersetzen ?

mfg walter mb

  

Betrifft: AW: =cells(1,1) von: Cell
Geschrieben am: 19.08.2008 10:52:40




  

Betrifft: AW: ...=" & cells(1,1) & ".... von: Korrektur
Geschrieben am: 19.08.2008 10:57:09




  

Betrifft: AW: ...=" & cells(1,1) & ".... von: Walter mb
Geschrieben am: 19.08.2008 11:21:37

Hallo,
klappt nicht:
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((MONTH(R[3]C[7]:R[64484]C[7])=" & Cells(1, 1) & ")*(R[3]C[7]:R[64484]C[7]<>""""))"
mfg walter mb


  

Betrifft: AW: Formel ergänzen von: Tobias
Geschrieben am: 19.08.2008 10:53:17

Hallo Walter!
Die Angaben in eckigen Klammern sind relativ, sind also von der Zelle abhängig in der die Formel eingetragen wird.

Probiers mal mit R1C1 anstelle von A1.

Schönen Gruß, Tobias
http://www.vba-blog.de/


  

Betrifft: Klappt auch nicht von: Walter mb
Geschrieben am: 19.08.2008 11:25:35

Hallo Tobias,
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((MONTH(R[3]C[7]:R[64484]C[7])=R1C1)*(R[3]C[7]:R[64484]C[7]<>""""))"
es steht dan "$A$1" leider sonst nichts.
In der Zelle A1 steht eine 8, dieses Format: M, da Bezug zu A2 da steht das Datum drin: 19.08.2008.
mfg Walter mb


  

Betrifft: AW: Klappt auch nicht von: Tobias
Geschrieben am: 19.08.2008 11:43:57

Hallo Walter!
Also steht in der Zelle A1 keine 8 sondern 39679. Dann ist - hoffentlich - alles klar.
month(range("A15"))
Also nehmen wir die andere Lösung:
"=SUMPRODUCT((MONTH(R[3]C[7]:R[64484]C[7])=" & Cells(1, 1) & ")*(R[3]C[7]:R[64484]C[7]<>""""))"

Und fügen Month(Cells(1,1)) ein:
"=SUMPRODUCT((MONTH(R[3]C[7]:R[64484]C[7])=" & Month(Cells(1, 1)) & ")*(R[3]C[7]:R[64484]C[7]<>""""))"

Klappts jetzt? Tobias
http://www.vba-blog.de/


  

Betrifft: Hallo Tobias, Super klappt -) von: Walter mb
Geschrieben am: 19.08.2008 11:56:10

Hallo Tobias,
danke das war es.
Tut mir leid das ich da nicht sofort darauf hingewiesen habe,
mfg walter mb


  

Betrifft: AW: Hallo Tobias, Super klappt -) von: Korrektur
Geschrieben am: 19.08.2008 12:23:58

Hi Walter
MERKE: richtige Fragestellung - richtige Antwort(meist).
Hellsehen, was der Fragesteller eigentlich will, kann keiner!


 

Beiträge aus den Excel-Beispielen zum Thema "Formel ergänzen"