kann mir vielleicht jemand sagen was man in folgender Formel änder muß damit der Wert auch berechnet wird wenn es weniger zeilen sind?
mittelwert_feuchte = WorksheetFunction.Average(Sheets("Sensor 1").Range("I" & ly - 3000 & ":I" & ly))
Danke
Sub letzter()
Dim LRow As Integer, ERow As Integer
Dim mittelwert_feuchte As String
LRow = Sheets("Sensor 1").Cells(Rows.Count, 8).End(xlUp).Row
If LRow <= 3000 Then
ERow = 2
Else
ERow = LRow - 2999
End If
mittelwert_feuchte = WorksheetFunction.Average(Sheets("Sensor 1").Range("H" & ERow & ":H" & LRow))
MsgBox mittelwert_feuchte
End Sub