Thema Datum  Von Nutzer Rating
Antwort
10.05.2020 17:48:50 Peter
NotSolved
10.05.2020 21:59:25 Mase
NotSolved
Rot Eintragen in Daten Blatt
 10.05.2020 23:14:19 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
10.05.2020 23:14:19		 Views:
468		 Rating:
     
Antwort:
  Ja
Thema:
Eintragen in Daten Blatt

Hallo,

dein ganzes Schleifchenbinden kannst du dir schenken ... nimm doch einfach Mittelwert (Average) ...

With Application.WorksheetFunction
avgup = .Average(Range("J2:J" & Sheets("BERECHNUNG").Cells(4, 3) + 2))
avgdown = .Average(Range("K2:K" & Sheets("BERECHNUNG").Cells(4, 3) + 2))
End With

Oder hast du da Nullwerte und Fehler mit dabei ? Falls ja, könnte man auch auf AGGREGAT umstellen ... das kann Fehler ignorieren.

Wohin allerdings die Werte gehen sollen, da fehlt jeder Hinweis von dir.

Das würde so gehen ...

Range("A1").Value = avgup ' nur mal als Beispiel ...

Sabina

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
10.05.2020 17:48:50 Peter
NotSolved
10.05.2020 21:59:25 Mase
NotSolved
Rot Eintragen in Daten Blatt
 10.05.2020 23:14:19 Flotter Feger
NotSolved