Hi Mackie,

versuch mal :

"<" & str(s+0,025),

statt

"<" &(s+0,025),

leider wars das nicht.

Vielleicht habe ich das Problem auch zu umständlich erklärt, ist mein erster Thread hier.  Ich habe folgende Gleichung in Excel:

=SUMMEWENNS($AI$1:$AI$237;$S$1:$S$237;"<"&(S1+0,025);$S$1:$S$237;">"&(S1-0,025))/ZÄHLENWENNS($S$1:$S$237;"<"&(S1+0,025);$S$1:$S$237;">"&(S1-0,025))

und möchte die Gleichung nun in VBA definieren, allerdings mit zwei Veränderungen: S1 Soll keine explizite Zelle sein, sondern eine Variable und das Ende der Spalte (S237) soll Variabel sein.

Bisher habe ich:

Sub SUMMEWENNS()

Dim AnzahlZeilenBerechnung As Integer
Dim Zaehler As Double
Dim Nenner As Double
Dim s As Double
Dim i As Double

AnzahlZeilenBerechnung = Worksheets("Eingabedaten").Cells(Rows.Count, 1).End(xlUp).Row      'Anzahl der berechneten Zeilen
            
        For i = 2 To AnzahlZeilenBerechnung
             
            s = Worksheets("Tabelle1").Cells(i, 19)
                    
            Zaehler = WorksheetFunction.SumIfs(Range("AI2:AI236"), Range("S2:S236"), "<"&(s+0.025), Range("AI2:AI236"), Range("S2:S236"), ">"&(s-0.025))
            Nenner = WorksheetFunction.CountIfs(Range("S2:S236"), "<"&(s+0.025), Range("S2:S236"), ">"&(s-0.025))
            Sheets("Tabelle1").Cells(i, 36).Value = Zaehler / Nenner
        Next

End Sub

Und mit Macros aufzeichnen spuckt mir Excel folgendes aus:

ActiveCell.FormulaR1C1 = "=SUMIFS(R2C18:R237C18,R2C14:R237C14,""<""&(""s""+0.025),R2C14:R237C14,"">""&(""s""-0.025))/COUNTIFS(R2C14:R237C14,""<""&(""s""+0.025),R2C14:R237C14,"">""&(""s""-0.025))"

Falls das jemanden weiterhilft. Die Spalten und Zeilen stimmen hier nicht mit dem vorherigen Beispiel überein, da ich in einer anderen Tabelle herumprobiert habe.

Viele Grüße,

Heinke