Summenprodukt in VBA Excel
28.06.2015 11:31:10
Bonduca01
ich suche eine Funktion in VBA die mir folgendes macht:
Ich möchte für Monat 1 bis Monat 12 die Mindestbestellmenge ausrechnen. Dafür summiere ich die Bestellungen von Monat 1 bis Monat 12 und teile sie dann durch die Monate in denen mehr als 0 bestellt wurde.
In Excel sieht das dann so aus:
=SUMME(B2:M2)/ SUMMENPRODUKT((A2:M2 0)*1)
Ich möchte nun Monat 1 bis Monat 12 in meiner Public Function als extra Eingabefeld haben, weil die nicht immer in den gleichen Spalten stehen.
Ich scheitere aber an dem Summenprodukt.
Public Function MinMenge(M1, M2, M3, M4, M5, M6, M7, M8, M9,M10, M11, M12) As Double
MinMenge = (M1 + M2 + M3 + M4 + M5 + M6 + M7 + M8 + M9 + M10 + M11 + M12) / SUMMENPRODUKT((M1 _
0) * 1 + (M2 0) * 1 + (M3 0) * 1 + (M4 0) * 1 + (M5 0) * 1 + (M6 0) * 1 + (M7 0) * 1_
+ (M8 0) * 1 + (M9 0) * 1 + (M10 0) * 1 + (M11 0) * 1 + (M12 0)* 1)
End Function
Ich hab es schon mit verschiedenen Formulierungen statt Summenprodukt versucht, wie z.B. Application.Worksheet.SumIf oder CountIf. Aber irgendwie mache ich da was falsch.
Könnt ihr mir helfen?
Viele Grüße, Bon