ich habe im englischen microsoft-forum eine tolle Funktion gefunden (MVP Jeeped).
Summe über mehrere Tabellenblätter mit variablen Namen.
Public Function fcnSumIfMySheets(crit As Range, strt As Long, fnsh As long) As Double
On Error Resume Next
Dim dCondSum As Double
Dim lBgn As Long
Dim lEnd As Long
lCondSum = 0
lBgn = strt
lEnd = fnsh
For i = lBgn To lEnd 'e.g. from Sheetx to Sheety
If Not Worksheets(i) Is Nothing Then
dCondSum = dCondSum + Application.SumIf(Worksheets(i).Range("A:A"), crit.Value, _
Worksheets(i).Range("C:C"))
Else
fcnSumIfMySheets = dCondSum
Exit Function
End If
Next
fcnSumIfMySheets = dCondSum
End Function
Das funktioniert auch ganz gut, nur habe ich das Problem dass das Format im Suchbereich (Range("A:A") bsp. 01.01.2015 -01.04.2015 ist und ich wie beim Summenprodukt alle Werte des Jahres 2015 (Range("C:C")) summieren möchte.
Kann mir da jemand einen Tipp geben?
Danke.