Hallo Leute,
ich erhalte beim Ausführen des folgenden VBA-Codes in Excel immer die Fehlermeldung "Typen unverträglich" in der Fett markierten Zeile. Kann mir jemand sagen wa sich falshc mache?
Sub SuSaAuslesen()
Dim SusaWert As Double
Sheets("SuSa").Activate
SusaWert = Evaluate("=SUMPRODUCT((SuSa!$A$2:$A$1000=A16)*(SuSa!$C$1:$N$1>=VLOOKUP($B$6;Quartale!A:C;2;FALSE))*(SuSa!$C$1:$N$1<=VLOOKUP($B$6;Quartale!A:C;3;FALSE))*(SuSa!$C$2:$N$1000))")
Sheets("Werte Erlöse").Activate
Range("C16").Select
ActiveCell.Value = SusaWert
End Sub
Danke euch!
Flo
|