sumIf..

Question

Hallo,

habe im Code u.a.

Rng = Range("A2:A15")
Cells(17, 3) = Application.SumIf(Rng, "klierb", 7)

stehen. Unter A2:A15 stehen string-Variable, in Spalte 7 Werte im Währungsformat. Es sollen alle Beträge für "Klierb" addiert werden.
Ich erhalte aber immer #WERT!-Fehler. Komme nicht drau, woran das liegen könnte...ist doch eigentlich ganz einfach...????
Gruß
Andreas

Answer 1

Hallo Andreas,

Dim rng As Range
Set rng = Range("A2:A15")
Cells(17, 3) = Application.SumIf(rng, "klierb", rng.Offset(0, 6))

Gruß Hajo

Answer 2

Hallo,


Cells(17, 3) = Application.SumIf(rng, "klierb", rng.Offset(0, 6))

...das führt zu Fehler "424"..??
Habe auch schon

Dim rng As Range
Set rng = Range("A2:A15")
Cells(17, 3) = Application.SumIf(rng, "klierb", "G2:G15")

versucht aber auch da #WERT!....

Answer 3

ich kann es nur an meiner Datei testen. Deine sehe ich nicht.

Gruß Hajo

Answer 4

Hallo,

habe hier mal eine einfache Testdatei zur besseren Veranschaulichung:

http://www.file-upload.net/download-8929122/Mappe2.xlsm.html

Gruß

Answer 5

von unsicheren Servern lade ich nichts runter.

Gruß Hajo

Answer 6

Hallo Andreas,

Dein Code kann nicht funktionieren, (set vergessen, Range vergessen, Klammern teilweise falsch) vergleiche ihn mal mit diesem:

Sub Addition()
Set Rng = Range("A2:A15")
Cells(17, 3) = Application.SumIf(Rng, "klierb", Range("G2:G15"))
End Sub

Sub Addition1()
Set Rng = Range("A21:A26")
Cells(27, 2) = Application.SumIf(Rng, "a", Range("B21:B26"))
End Sub

Gruß
Rainer

Answer 7

Hallo Rainer,,

kleine Ursache - große Wirkung...
War irgendwie betriebsblind... Danke für deinen Tipp. klappt jetzt natürlich einwandfrei!!
Danke und Gruß.