SUMIF + MID()
03.02.2016 17:53:56
Björn
ich möchte gerne in eine SUMIF-Funktion eine mid()-Funktion integrieren. Bei der Programmierung habe ich mich an die Microsoft Dokumentation gehalten. Leider wird mir ein Fehler angezeigt, wenn ich das Makro starte.
Fehler beim Kompilieren - Erwartet Listentrennzeichen oder )
Aus meiner Sicht sind alle Klammern richtig gesetzt...
In Spalte B soll eine bestimmte Zahlenkombination gesucht werden und die Summe aller Werte aus Spalte C ausgegeben werden.
Kann mir jemand weiterhelfen?
https://www.herber.de/bbs/user/103269.xlsm
Quellcode:
Option Explicit
Public Function summeA(varTabelle1 As Variant, lngKto As Long) As Double
With Worksheets(varTabelle1)
summeA = Application.WorksheetFunction.SumIf(.Range("B2:B22"), Mid(B2:B22, 2, 4) = lngKto, _
.Range("C2:C100"))
End With
End Function
Sub TestIt()
Debug.Print summeA(1, 1234)
End Sub