Syntax worksheetFunction.Sumif
12.01.2007 09:06:40
Peter
Ich will die Formel =SUMMEWENN(modAKonto;$E31;modPlan1)
die im Worksheet "Mod_Erträge" steht durch eine worksheetFunction.Sumif Auswertung ersetzen (in Tabelle anstelle Formel nur Wert eintragen)
Die Bereiche "modAkonto" und "modPlan1" sind im Worksheet "Spielwiese".
Bei der Codezeile mit "worksheetFunction.Sumif erscheint die Meldung "Typen unverträglich"
Sieht jemand, wo das Problem liegt?
Danke für Rückmeldung
Sub aktualisiere_Mod_Erträge()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim bSheet As Worksheet
Dim zNr As Long
Dim sNr As Long
Set aBook = ThisWorkbook
Set aSheet = Worksheets("Mod_Erträge")
Set bSheet = Worksheets("Spielwiese")
zNr = Range("Start_Globaladj").Row
sNr = Range("Start_Globaladj").Column
With aSheet
.Cells(zNr, sNr) = WorksheetFunction.SumIf(Worksheets(bSheet).Range(modakonto), .Range(zNr, sNr - 1), Worksheets(bSheet).modplan1)
End With
End Sub