Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.07.2009 10:38:01 |
phtagen |
|
|
|
30.07.2009 17:56:48 |
Holger |
|
|
|
31.07.2009 08:46:29 |
phtagen |
|
|
|
31.07.2009 10:36:05 |
Holger |
|
|
|
31.07.2009 11:55:40 |
phtagen |
|
|
|
31.07.2009 12:28:13 |
phtagen |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:mittelwert mit sumif und countif |
31.07.2009 12:58:46 |
Holger |
|
|
|
31.07.2009 14:47:47 |
phtagen |
|
|
Von:
Holger |
Datum:
31.07.2009 12:58:46 |
Views:
865 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:mittelwert mit sumif und countif |
Hallo phtagen,
du hattest deine Step-Größe falsch gewählt. Die ineinander verschachtelten For-Next-Schleifen waren überflüssig, sollten aber nicht stören. Im zweiten Ansatz fehlte allerdings die Ausgabe in Spalte B.
So wird die Division durch 0 vermieden:
Sub mittelwerte1()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 24
a=WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i + 23, 1)), ">0")
if a > 0 then
Cells((i - 1) / 24 + 1, 2) = WorksheetFunction.SumIf(Range(Cells(i, 1), Cells(i + 23, 1)), ">0") / a
else
Cells((i - 1) / 24 + 1, 2) ="Nur negative Werte."
end if
Next i
End Sub
Gruß
Holger
phtagen schrieb am 31.07.2009 12:28:13:
hey holger,
eine kleinigkeit wäre noch, die ich dummerweise vergessen hab zu sagen...
ich hab teilweise tabellen wo tagelang nur negative werte sind... dann dividiert er quasi immer durch null und gibt die fehlermeldung "überlauf" aus... das liegt wahrscheinlich daran, dass das zahlenformat keine imaginären zahlen erkennt...
kann man das noch irgendwie ändern???
lieben gruß
phtagen |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
30.07.2009 10:38:01 |
phtagen |
|
|
|
30.07.2009 17:56:48 |
Holger |
|
|
|
31.07.2009 08:46:29 |
phtagen |
|
|
|
31.07.2009 10:36:05 |
Holger |
|
|
|
31.07.2009 11:55:40 |
phtagen |
|
|
|
31.07.2009 12:28:13 |
phtagen |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:mittelwert mit sumif und countif |
31.07.2009 12:58:46 |
Holger |
|
|
|
31.07.2009 14:47:47 |
phtagen |
|
|