|
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
|