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:
541		 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,

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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