Thema Datum  Von Nutzer Rating
Antwort
11.09.2019 09:50:27 FreddyKrüger
NotSolved
11.09.2019 10:51:14 Torsten
NotSolved
11.09.2019 11:10:35 Gast58367
NotSolved
11.09.2019 11:11:34 FreddyKrüger
NotSolved
11.09.2019 14:10:29 Torsten
NotSolved
11.09.2019 15:29:03 FreddyKrüger
NotSolved
11.09.2019 15:47:52 Torsten
NotSolved
11.09.2019 16:40:49 FreddyKrüger
NotSolved
12.09.2019 06:58:40 Torsten
NotSolved
12.09.2019 07:01:47 Torsten
NotSolved
12.09.2019 08:08:23 Gast39949
NotSolved
12.09.2019 08:53:27 Torsten
NotSolved
12.09.2019 10:22:04 Gast6056
NotSolved
12.09.2019 11:15:26 Torsten
NotSolved
Rot VBA schleife die Automatisch den Mittelwert anpasst
12.09.2019 11:18:46 Gast41127
NotSolved
12.09.2019 11:41:36 Torsten
NotSolved
12.09.2019 14:33:14 Gast13425
NotSolved
12.09.2019 14:51:50 Gast23089
NotSolved
12.09.2019 14:59:28 Torsten
NotSolved
12.09.2019 16:00:29 Gast40650
NotSolved
13.09.2019 08:20:21 Torsten
NotSolved
13.09.2019 11:14:20 FreddyKrüger
NotSolved
14.09.2019 00:43:25 Gast86139
NotSolved
14.09.2019 12:19:48 FreddyKrüger
Solved

Ansicht des Beitrags:
Von:
Gast41127
Datum:
12.09.2019 11:18:46
Views:
402
Rating: Antwort:
  Ja
Thema:
VBA schleife die Automatisch den Mittelwert anpasst

Hallo nochmal,

ich habe mal an deiner Korrektur des Loops rumgebastelt und ein paar kleine Änderungen vorgenommen und die anmerkungen daneben geschrieben,

Sub AverageHelp()
'
' AverageHelp Macro
'
  
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim x As Variant
  
x = 1 'weil er in zeile 2 anfangen soll'
  
Do
    x = x + 1
    Range("A20") = Application.WorksheetFunction.Average(ws.Range("A" & x & ":A" & x + 4 - 1)) 'ich habe hier bei der 4 noch -1 hinzugefügt da er sonst den Mittelwert falsch berechnet,
'weißt du vielleicht warum?'
    
      
Loop Until x > 4 'obwohl meine letzten werte in Zeile 8 sind musste ich 4 angeben, weil ersonst in leeren Zeilen weiter macht oder? ich verstehe nicht ganz welche werte dort genutzt werden,
'jedenfalls bleibt die rechnung fehler
'frei wenn ich es nur bis zeile 4 mache, bzw die mittelwerte sind dann korrekt'


Aber ich muss mich nochmal herzlich bedanken deine erklärungen sind echt gut und mir eine sehr große hilfe!

Beste grüße Freddy


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
11.09.2019 09:50:27 FreddyKrüger
NotSolved
11.09.2019 10:51:14 Torsten
NotSolved
11.09.2019 11:10:35 Gast58367
NotSolved
11.09.2019 11:11:34 FreddyKrüger
NotSolved
11.09.2019 14:10:29 Torsten
NotSolved
11.09.2019 15:29:03 FreddyKrüger
NotSolved
11.09.2019 15:47:52 Torsten
NotSolved
11.09.2019 16:40:49 FreddyKrüger
NotSolved
12.09.2019 06:58:40 Torsten
NotSolved
12.09.2019 07:01:47 Torsten
NotSolved
12.09.2019 08:08:23 Gast39949
NotSolved
12.09.2019 08:53:27 Torsten
NotSolved
12.09.2019 10:22:04 Gast6056
NotSolved
12.09.2019 11:15:26 Torsten
NotSolved
Rot VBA schleife die Automatisch den Mittelwert anpasst
12.09.2019 11:18:46 Gast41127
NotSolved
12.09.2019 11:41:36 Torsten
NotSolved
12.09.2019 14:33:14 Gast13425
NotSolved
12.09.2019 14:51:50 Gast23089
NotSolved
12.09.2019 14:59:28 Torsten
NotSolved
12.09.2019 16:00:29 Gast40650
NotSolved
13.09.2019 08:20:21 Torsten
NotSolved
13.09.2019 11:14:20 FreddyKrüger
NotSolved
14.09.2019 00:43:25 Gast86139
NotSolved
14.09.2019 12:19:48 FreddyKrüger
Solved