Office: Mittelwert / Average --- leere Zellen ignorieren

Hallo,

ich möchte Mittelwerte aus einzelnen Abschnitten meiner Excel Tabelle bilden. Das funktioniert auch recht gut mit:

For a = 1 To i_h - 1 'Zeilenzähler, hier i_h = Anzahl der Stundenblöcke
MW_Block(a) = Application.WorksheetFunction.Average((Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h)))))
MW_Block_Datum(a) = Cells(row_StartStunde(a), j_column_d)
Next a

Allerdings klappt das nur so lange keine Leerzellen in der Tabelle enthalten sind. Da meine Daten aber nunmal leere Zellen enthalten ist die Frage, wie bring ich EXCEL dazu diese zu ignorieren?


Danke für Eure Hilfe

homax

 

Hi,

verwende anstelle Average die Funktion Sum und teile das Ergebnis durch die Anzahl der belegten Zellen - nach folgendem Prinzip:

Code:

Application.Sum((Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h))))) / _
   Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h)))

Bis später,
Karin

 

Das hat leider nicht funktioniert.

Ich habe es jetzt vorerst so gelöst:

For a = 1 To i_h - 1 'Zeilenzähler, hier i_h = Anzahl der Stundenblöcke
MW_Blockc(a) = Application.WorksheetFunction.CountA(Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h))))
If MW_Blockc(a) = 0 Then
MW_Block(a) = ""
MW_Block_Datum(a) = Format(Cells(row_StartStunde(a), j_column_d), "dd.mm.yyyy hh:nn")
Else
MW_Block(a) = Application.WorksheetFunction.Average((Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h)))))
MW_Block_Datum(a) = Cells(row_StartStunde(a), j_column_d)
End If
Next a

Jetzt werden die Leerzellen mit übernommen. Vorher noch "Dim MW_Block(120000) as variant".


Danke und viele Grüße
homax

 

Hi,

sorry, beim Übertragen in deinen Code habe ich leider einen Teil vergessen zu übernehmen - es muss heißen:

Code:

Application.Sum((Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h))))) / _
  Range(Cells(row_StartStunde(a), MW_column(h)), Cells(row_EndeStunde(a), MW_column(h)))[COLOR=#ff0000].SpecialCells(xlCellTypeConstants).Count[/COLOR]

Bis später,
Karin