möchte das Ergebnis einer Summewennberechnung prüfen und dann Wert in anderer Zelle um +1 erhöhen.
Brauche einen Tipp, warum der Code streikt.
Vielen Dank vorab.
Option Explicit
Sub SummewennErgebnisPruefen()
If Application.WorksheetFunction.SumIf(Range("E2:E26"), 1, Range("G2:G20")).Value > 15 Then
Range("H2").Value = Range("H2").Value + 1
Else
End If
Range("H3").Select
End Sub
Dietmar