Hallo phtagen
SUMIF und COUNTIF sind Excel-Worksheetfunktionen. Diese musst du mit WorksheetFunction.SUMIF(..) usw. ansprechen.
Ob sonst noch etwas an deinem Makro verbesserungswürdig ist, habe ich nicht geprüft. Falls du es nicht zum Laufen bringst, kannst du dich ja wieder melden.
Gruß
Holger
phtagen schrieb am 30.07.2009 10:38:01:
hallo ihr excel- spezialisten,
kann mir vielleicht jemand sagen, was an meinem quelltext falsch ist???
ich bekomm die fehlermeldung, dass ein listen- oder trennzeichen erwartet wird...
vielleicht noch kurz zu meinem anliegen:
ich habe über einen monat bestimmte werte und zwar immer stundenweise (also insgesamt 744 werte)... ich möchte nun aus den stundenwerten, tageswerte machen (mittelwerte) und dabei alle zahlen die kleiner als null sind nicht mitbeachten... heißt also ich möchte aus jeweils 24 werten den mittelwert bilden (nur positive zahlen), diesen wert in einer anderen zelle ausgeben lassen und dann die nächsten 24 werte berechnen (immer tageweise)...
vielleicht hat ja jemand zeit sich das mal anzugucken und mir n tipp zu geben...
vielen dank schon mal im voraus und liebe grüße
phtagen
anhang: mein quelltext
Sub mittelwerte()
ende = Cells(Rows.Count, 1).End(xlUp).Row
laufvariable = Cells(Rows.Count, 1).End(xlUp).Row / 24
For i = ende To 1 Step -23
For y = laufvariable To 1 Step -1
mittelwert =SUMIF(cells(i,1):cells(i-23,1),"">0"")/COUNTIF(cells(i,1):cells(i-23,1),"">0"")
cells(y,2) = mittelwert
Next y
Next i
End Sub
PS.:
also das problem liegt denk ich in dieser zeile:
mittelwert =SUMIF(cells(i,1):cells(i-23,1),"">0"")/COUNTIF(cells(i,1):cells(i-23,1),"">0"")
vba scheint nicht zu erkennen, dass die zellenangaben bei der zählenwenn- und summewenn- funktion mit variablen (i) laufen sollen...
das problem an der sache ist ja eigentlich, dass excel zum ende springen soll, dann die letzten 24 werte nehmen soll (z.B. wert 744 - 720) und daraus den mittelwert bilden soll (nur positive zahlen)... das ist quasi mein erster tag... dann soll der nächste tag kommen (also wert 719 - 695) usw. usf...
hat diesbezüglich vielleicht jemand ne idee???
gruß
phtagen |