Allerdings habe ich das Problem daß bei Änderung von Werten der Wert in der Funktion sich n i c h t verändert. Auch mit F9 und neu Berechnen funktioniert das nicht. Hat jemand eine Idee?
Nachstehend meine Funktion:
Function aa_Summewenn_über_Blätter(Suchwert As Variant, _
Erstes_Blatt As String, Letztes_Blatt As String, _
Vergleichszelle As Variant, Zelle_mit_Wert As Variant)
Dim wks As Worksheet
Dim dblWert As Double
Dim indexlauf As Integer
For indexlauf = Worksheets(Erstes_Blatt).Index To Worksheets(Letztes_Blatt).Index
Set wks = Worksheets(indexlauf)
dblWert = dblWert + WorksheetFunction.SumIf(wks.Range(Vergleichszelle), _
Suchwert, wks.Range(Zelle_mit_Wert))
Next
aa_Summewenn_über_Blätter = dblWert
End Function