Aufeinanderfolgende Messwerte - kleinste Summe von 4 ermitteln

Hallo Uwe,
<br />wenn du sehr viele Werte hast und dir die Hilfsspalte ersparen möchtest, kopiere folgenden Code in ein Standard-Modul und rufe die Funktion im Blatt auf mit z.B.:
<br />=KleinsteSumme(A1:A25)
<br />

Function KleinsteSumme(Bereich As Range) As Double Dim i As Long, n As Long Dim varSum() As Variant  For i = 1 To Bereich.Cells.Count - 3  ReDim Preserve varSum(n)  varSum(n) = Application.Sum(Bereich.Cells(i, 1).Resize(4))  n = n + 1 Next KleinsteSumme = Application.Min(varSum) End Function

Claus
<br />

Hallo Claus,
<br />im Allgemeinen gebe ich einer Formellösung den Vorzug vor VBA, wenn die Möglichkeit besteht. Hilfsspalten sind zwar auch nicht so schön, in meinem Fall aber zu tolerieren.
<br />Trotzdem vielen Dank für deine Lösung, werde es mir abspeichern!
<br />VG
<br />Uwe
<br />

Das wird nicht so einfach gehen.
<br />Im Prinzip musst Du jeweils 4 Werte summieren, =SUMME(A1:A4) und runterziehen bis zur 4t-letzten Datenreihe.
<br />Von diesen Summen suchst Du den kleinsten und hast so indirekt die 4 kleinsten aufeinander folgenden ... wenn wir damit das gleiche meinen.
<br />Andreas.
<br />

So war das schon gemeint. Exakt das ist die Lösung!
<br />Vielen Dank!
<br />

Hallo Stefan,



dann nimm die zweite Formel.

Kopiere sie in C1, schließe die Eingabe mit STRG+Shift+Enter ab und ziehe sie dann herunter so weit du Daten hast.



Mit freundlichen Grüßen

Claus