Hi,

ich versuche gerade die Funktion SUMMEWENNS in VBA zu übertragen und komme einfach nicht weiter.

Ich hab in Spalte S eine zurückgelegte Strecke in Metern, die nicht konstant ist  zum Beipsiel: (23 ; 25 ; 67 ;78 ; ...)

In Spalte AI habe ich einen Wert der über den Bereich von +/- 25m gemittelt werden soll.

Meine funktionierende Funktion in Excel lautet:

=SUMMEWENNS($AI$2:$AI$236;$S$2:$S$236;"<"&(S1+0,025);$S$2:$S$236;">"&(S1-0,025))

wobei diese Funktion für die ganze Spalte durchgeführt werden soll.

nun habe ich versucht die Funktion in VBA zu verfassen:

Sub SUMMEWENNS()

Dim i As Integer

Dim s As Double

AnzahlZeilenBerechnung = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row      'Anzahl der berechneten Zeilen       

For i = 1 To AnzahlZeilenBerechnung '

            s = Worksheets("Eingabedaten").Cells(i, 19)
      
                    Sheets("Eingabedaten").Cells(i, 36).Value = WorksheetFunction.SumIfs(Range("AI2:AI236"), Range("S2:S236"), "<" &(s+0,025), Range("AI2:AI236"), Range("S2:S236"), ">" &(s+0,025))
                   
        Next

End Sub

Ich bin mir ziemlich sicher, dass es ein Problem mit dem definieren des Kriteriums ist, kann aber leider nicht herausfinden wie es auszusehen hat.

Zudem soll das Ende der Spalte (Zeile 236) variabel sein, undzwar "AnzahlZeilenBerechnung", wenn mir das noch jm. zusützlich einbauen könnte, wäre ich super dankbar.

Viele Grüße,

Heinke