Funktion sumif
19.02.2003 15:19:05
Eda
Warum funktioniert das nicht?
Function Summieren(proj As Range, name As Range)
blatt = proj.Value & "_030219.xls"
Summieren = Application.WorksheetFunction.SumIf(Windows(blatt).Sheets("Sheet1").Columns(1), name.Value, Windows(blatt).Sheets("Sheet1").Columns(7))
End Function
Danke, Eda
Anzeige