Hallo zusammen,
ich habe ein kleines VBA Problem das ich nicht verstehe und damit auch nicht gelöst bekomme. Ich möchte gerne den Mittelwert aus den Werten in der Spalte AL berechnen. Hierzu nutze ich die Average Funktion. Leider erhalte ich immer wieder einen Fehler (Laufzeitfehler 424 Objekt erforderlich) und bekomme das Problem einfach nicht gelöst. Wäre klasse wenn mir hierbei einer Helfen könnte.
Sub Auswertung_timetoInvoice()
Dim Zeile As Integer
Dim letztezelle As Integer
'Berechnung der Werktage
Zeile = 2
Do While Sheets("Vergleich2").Cells(Zeile, 10) <> ""
nettoday = WorksheetFunction.NetworkDays(Sheets("Vergleich2").Cells(Zeile, 29), Sheets("Vergleich2").Cells(Zeile, 30))
Sheets("Vergleich2").Cells(Zeile, 38) = nettoday
Zeile = Zeile + 1
Loop
'Ermittlung des Mittelwertes
letztezelle = Worksheets("Vergleich2").Range("A65536").End(xlUp).Row
Average = Application.WorksheetFunction.Average(Vergleich2.Range("AL" & 2 & ":AL" & letztezelle))
Eingabe = InputBox("Bitte geben Sie die Kalenderwoche der Auswertung an:", "Eingabe der Kalenderwoche", "")
Sheets("Time_to_Invoice").Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = Eingabe
Sheets("Time_to_Invoice").Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = Average
End Sub
|