Gruppe
Matrix
Problem
Wie kann ich Spalte A auf Werte nach vorgegebenen Ober- und Untergrenzen prüfen und bei Übereinstimmung die Zellen rechts daneben summieren?
StandardModule: basMain
Sub Addieren()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
rng.Formula = "=SUM(A1:A" & rng.Row - 1 & ")"
End Sub