VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Max	Datum: 20.10.2016 09:33:14	Views: 1250	Rating:	Antwort:
Thema: Average bestimmen
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen