Mit folgendem Makro erreiche ich, dass der Mittelwert des letzten Monats errechnet wird. Leider funktioniert dies nur, wenn neben dem letzten Datum auch ein Wert steht. Wie kann ich erreichen, dass trotzdem der Mittelwert errechnet wird und wenn noch gar kein Wert im Monat da ist, zum vorletzten Monat, der darüber steht, gesprungen wird ?
Toll wäre es, wenn ich den Mittelwert des letzten Monats, wo daneben auch Werte stehen und des vorletzten Monats (ist vollständig gefüllt) gezeigt bekommen würde.
In Spalte A stehen immer die Datumsangaben im Format dd/mm/yy", in Spalte B stehen die Werte ohne Leerstellen ( bis auf die letzten)
Vielen Dank
Wolfgang
Public Sub Testb() Dim a, b, betr As Integer a = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row b = a Do While Month(Cells(a, 1)) = Month(Cells(b, 1)) If WorksheetFunction.Count(Range(Cells(a, 2), Cells(b, 2))) = 0 Then Exit Sub Else betr = WorksheetFunction.Average(Range(Cells(a, 2), Cells(b, 2))) a = a - 1 End If Loop Range("K4") = betr End Sub