Thema Datum  Von Nutzer Rating
Antwort
20.10.2016 09:33:14 Max
Solved
Blau Average bestimmen
 20.10.2016 09:56:50 Gast31372
NotSolved
20.10.2016 10:01:21 Gast88033
Solved
20.10.2016 10:47:17 Max
NotSolved

Ansicht des Beitrags:
Von:
Gast31372		 Datum:
20.10.2016 09:56:50		 Views:
675		 Rating:
     
Antwort:
  Ja
Thema:
Average bestimmen		 
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

Thema Datum  Von Nutzer Rating
Antwort
20.10.2016 09:33:14 Max
Solved
Blau Average bestimmen
 20.10.2016 09:56:50 Gast31372
NotSolved
20.10.2016 10:01:21 Gast88033
Solved
20.10.2016 10:47:17 Max
NotSolved