Application.WorksheetFunction.Sum
09.04.2008 21:43:46
Zuther
ich habe eine Tabelle strukturiert in Vorjahreswerte und Jahreswerte (Monatstabelle). Ich möchte jetzt in einer Zelle die Summe aus einem Bereich ermitteln. Der Bereich ist abhängig vom aktuellen Monat und die Anzahl der Monate.
Aktuelle Monat = 4
Anzahl der Monate = 3
Ergebnis = 90
VJ Jan VJ Feb VJ März VJ April VJ Mai VJ Juni usw.
10 20 30 40 50
Versuch über eine
Function funktioniert nur wenn ich jedes einzelne Feld aufrufe:
Kann mir jemand hier behilflich sein?
Function v() As Long
Dim monat, aspalte, espalte As Integer
Dim a As Range
Dim row As Long
monat = month(Date)
espalte = 37 + monat - 1
aspalte = 37 + monat - Range("anzmon").Value
Set a = Range(Cells(rng.row, aspalte), Cells(rng.row, espalte))
v = Application.WorksheetFunction.Sum(a)
End Function