SUMIF + MID()

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…fktioniert aber nicht wie Xl, Björn,
und du bist davon ausgegangen, dass eine VBA-Anweisung, hier speziell die Fkt aus Xl, genau wie in Xl fktioniert. Das ist aber ein Trugschluss, denn hinter Xl steht ein umfangreiches HintergrundPgm, die Calculation Engine, das in VBA natürlich fehlt. Da muss man alles selber vorsehen und machen.
Deine VBA-Zeile dürfte jede Menge FehlerMeldungen verursachen, denn sie entspricht nicht der VBA-Syntax. Jede Sprache hat Regeln, auch eine PgmmierSprache!
Deshalb bestand mein Vorschlag iW darin, dir zu raten, erst mal eine fktionierende TabBlatt-ZellFml zu entwickeln. Die kann man dann zur Not auch als FmlText in US-Notation mit Evaluate auswerten.
Nebenbei, Mid(B2:B22, 2, 4) = lngKto ist absoluter Quatsch, denn Mid ist eine vbFkt, die nicht mit der XlFkt TEIL (engl MID) übereinstimmt. Du hättest also zumindest Mid(Range("B2:B22"), 2, 4) = lngKto schreiben müssen, was dir aber nichts genutzt hätte, weil die vbFkt nur einen einzigen Textwert auf 1× verarbeiten kann, keinen ganzen ZellBereich. Du hättest hier also Evaluate("Mid(B2:B22,2,4)=" & lngKto) schreiben müssen, was dir nichts geholfen hätte, denn es wäre bestenfalls ein Vektor aus True- und False-Werten herausgekommen (eigentl nur False-Werte, da Mid einen Text liefert, der niemals gleich einer echten Zahl sein kann; das Mid-Ergebnis hätte also noch umgewandelt → zB -- davor ← oder der Vglswert hätte zu Text wdn müssen, zB so: "Mid(B2:B22,2,4)=""" & lngKto & """"). Die XlFkt SumIf hätte den auf Gleichheit mit ihrem 1.Argument vgln, so ist sie angelegt (!), und dabei natürlich keinerlei Übereinstimmung gefunden. Das kann also nicht der Weg sein!
Versuche also, dein Problem mit einer ZellFml zu lösen (dabei können dir hier viele helfen!). Danach kann man das immer noch erfolgreich in ein VBA-Pgm umsetzen.
Luc :-?

Hi
die Klammern sind richtig gesetzt.
falsch ist der zweite Parameter deines SummeWenns.
hier musst du den Vergleichswert als Text angeben, so wie in einer Excelzelle halt auch gebenenfalls mit Platzhaltern.
ausserdem sollten die Zellbereiche bei solchen Funktionen immer gleich gross sein.
selbst wenn ungleich grosse Zellbereiche funktionieren, es ist hier sinnlos.
probiers mal so:

summeA = Application.WorksheetFunction.SumIf(.Range("B2:B23"), "DE" & lngKto, .Range("C2:C23"))

wenns unabhängig von den ersten zwei Buchstaben sein soll:

summeA = Application.WorksheetFunction.SumIf(.Range("B2:B23"), "?" & lngKto, .Range("C2:C23"))

oder

summeA = Application.WorksheetFunction.SumIf(.Range("B2:B23"), "*" &  lngKto, .Range("C2:C23"))

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread