SumIf mit *
Jordan
ich brühte mal wieder über einer Kleinigkeit!
Ich möchte per VBA und per SumIf alle Werte in einer Spalte summieren, bei denen in einem anderen Bereich die Buchstaben AB vorkommen. Nun kann es aber mal passieren, das in der Spalte nicht genau AB steht, sondern vielleicht AB-NEU, oder AB-ALT!
Wie bekomme ich das hin, dass mir der Wert berechnet wird, wenn in dem defnierten Bereich *AB* steht.
Geht das mit "Like" wohin muss ich das stellen, fals die Idee richtig ist?
Oder gibt es gar eine andere Lösung.
Hier eine Musterdatei:
https://www.herber.de/bbs/user/62991.xls
Und hier mein Code:
Sub SummeWenn()
Dim ZeileMax As Long
Dim BereichWerte As Range
Dim BereichAbfrage As Range
With ActiveSheet
ZeileMax = .UsedRange.Rows.Count
Set BereichWerte = Range(Cells(2, 2), Cells(ZeileMax, 2))
Set BereichAbfrage = Range(Cells(2, 1), Cells(ZeileMax, 1))
.Cells(1, 2).Value = Application.WorksheetFunction.SumIf(BereichAbfrage, "AB", BereichWerte)
End With
End Sub
Im voraus wie immer besten Dank!