Vba Function
03.02.2016 14:52:44
Björn
mit folgender Funktion sollen alle Werte einer Spalte summiert werden, die eine bestimmte Bedingung erfüllen. Im Debug.Print wird aber nur der Wert 0 ausgegeben.
Leider finde ich den Fehler nicht. Es wäre nett, wenn mir jemand weiterhelfen könnte...
https://www.herber.de/bbs/user/103262.xlsm
Option Explicit
Public Function summeA(vatTabelle1 As Variant, lngKto As Long) As Double
On Error GoTo Step
With Worksheets(varTabelle1)
summeA = Application.WorksheetFunction.SumIf(.Range("B1:B22"), lngKto, .Range("C1:100"))
End With
Step:
End Function
Sub TestIt()
Debug.Print summeA(1, 1)
Debug.Print summeA("Tabelle1", 1)
Debug.Print summeA("KeinenWertGefunden", 1)
End Sub