VBA Summenprodukt
26.05.2021 14:57:21
Bo
ich habe hier in Sheet1 eine monatlich generierte Liste, die von Monat zu Monat eine unterschiedliche Zeilenanzahl ausweist. Ich möchte hier eine Summenprodukt Formel in VBA auf Sheet2 realisieren, die einmal ein Datum ausliest und daraus den Vormonat ermittelt und dann die entsprechende Addition vornimmt. Als Excel Formel sähe das wie folgt aus:
=SUMMENPRODUKT((MONAT(A2:A10000)=MONAT(JETZT()-30))*(AE2:AE10000))
Das funktioniert prima. Damit ich das VBA technisch umgesetzt bekomme habe ich erst die Variable "Letztezeile" definiert (und lasse das Zählen) und dann versucht das in die Formel eine VBA-kompatible Formel zu packen aber ich hänge da fest - diese & und " Geschichte hab ich glaube ich noch nicht richtig verstanden. Mein Versuch sieht wie folgt aus:
Dim Letztezeile As Long
Letztezeile = Range("a"&Rows.Count).End(xlUp).Row
Range("B2").Formula= "=sumproduct((month(Sheet1!a2:a"&Letztezeile&")="=month(now()-30))"*(ae2:ae"&Letztezeile&"))"
Da meckert er und sagt Kompilierungsfehler - kann mir jemand auf die Sprünge helfen?Danke!