Sub
Auswertung_timetoInvoice()
Dim
Zeile
As
Integer
Dim
letztezelle
As
Integer
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
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