Summe nur dann, wenn zwei Kriterien erfüllt
TinoB
Bin wieder mal auf ein problem gestoßen und hoffe ihr könnt mir helfen. mit dem untenstehenden makro wird die summe der SpalteZ gebildet. diese schreibt sich dann automatisch in die nächste leere Zelle der Spalte. jetzt soll aber nicht die komplette summe, sondern nach den kriterien der SpalteF und SpalteK, gebildet werden.
Beispiel: in der SpalteF stehen durch/untereinander R, B, K usw. und in der SpalteK 250, 500, 600 usw. nun sollen die zahlen in der SpalteZ addiert werden und zwar alle mit dem gleichen buchstaben in SpalteF und wiederum nur die mit der gleichen Zahl in SpalteK. Geht das überhaupt? Habe schon danach gesucht, aber leider nichts passendes gefunden. Hoffe mal das ich es so einigermaßen verständlich erklärt habe. Hätte da jemand ein beispiel wie man so etwas aufbaut?
Danke
Tino
Sub Summe()
Dim iCol As Integer
Dim sFormula As String
lR = Cells(Rows.Count, 5).End(xlUp).Row
Cells(lR + 1, 26).Activate
iCol = ActiveCell.Column
sFormula = "=SUM(R1C" & iCol & ":R[-1]C" & iCol & ")"
ActiveCell.FormulaR1C1 = sFormula
End Sub
Anzeige