Thema Datum  Von Nutzer Rating
Antwort
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
26.08.2016 16:48:13 Gast85296
NotSolved
26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
Blau Mittelwerte berehnen schleife
13.09.2016 20:06:01 susi
NotSolved

Ansicht des Beitrags:
Von:
susi
Datum:
13.09.2016 20:06:01
Views:
715
Rating: Antwort:
  Ja
Thema:
Mittelwerte berehnen schleife

Hi,

ich bin's nochmal.

Das Makro funktioniert immer noch super. Allerdings haben sich mittlerweile die Anforderungen verändert. 

Ich möchte immer noch den Mittelwert in jeweils 12er Schritten berechnen. Allerdings sollen nun nicht mehr immer alle 12 Werte berücksichtigt werden, sondern diese sollen nur berücksichtigt werden, wenn in einer weiteren Spalte (G) "ja" steht. Andernfalls steht in Spalte G "nicht".

Ich weiß nicht so recht, wie ich das gescheit einbauen kann. Bisher habe ich es mit folgenden Zusatz probiert:

Dim rngJanein As Range
Set rngJanein = Columns(7).Cells(lngab)
Set rngJanein = Range(rngJanein), rngJanein.Offset(lngStep-1))

Do While Not IsEmpty(rngMwerte.Cells(1))

If rngJaNein(c).Value = "ja" Then

dblMwert = WorksheetFunction.Average(rngMwerte)
usw. 

Also ich habe einfach den Bereich, indem Ja oder Nein steht (identisch zu rngMwerte, nur andere Spalte) hinzugefügt und dann wollte ich mit dem If-Befehlt das einschränken. Das klappt aber nicht. Ich kann das auch verstehen, da das If ja einzelne Zellen durchgeht und der Mittelwert für die gesamte Range gilt.

Ich vermute, dass ich dann also die Eingrenzung gleich mit bei der Festlegung der rng für die Mittelwerte treffen muss. Habe aber leider keine Ahnung wie das gehen soll...falls es so ist :)

Würde mich riesig freuen, wenn ich erneut so super Hilfe bekomme.

Liebe Grüße

susi


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
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
26.08.2016 16:48:13 Gast85296
NotSolved
26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
Blau Mittelwerte berehnen schleife
13.09.2016 20:06:01 susi
NotSolved