Alfred Sterner
Grünschnabel
Es mag für Experten eine leichte Angelegenheit sein. Für mich jedoch, der sich nach langer Zeit wieder für EDV interessiert ist, ist es nicht leicht.
Also:
Do Loop bedarf keiner Erklärung. Die Anzahl (Count) ist bekannt. Von beiden Ansätzen erwarte ich mir einen mittelwert, der aber ohne Math.Log(!MaxCount(i)) einen anderen Wert ergibt.
Kann mir geholfen werden?
Do
If Range("M" & i).Value <> 0 Then anz = anz + Range("M" & i).Value
i = i + 1
zeile = zeile + 1
Loop While Range("A" & zeile) <> ""
max = Range("A1").Value
mittelwert = anz / max 'die durchschnittliche Eintragsnummer
'############################################
ReDim lMaxCount(max - 1)
For Each row In dt1.Rows
lMaxCount(i) = CDbl(row!Wert)
mittelwert = mittelwert + Math.Log(lMaxCount(i))
i = i + 1
Next
mittelwert = mittelwert / max 'die durchschnittliche Eintragsnummer
'############################################
Also:
Do Loop bedarf keiner Erklärung. Die Anzahl (Count) ist bekannt. Von beiden Ansätzen erwarte ich mir einen mittelwert, der aber ohne Math.Log(!MaxCount(i)) einen anderen Wert ergibt.
Kann mir geholfen werden?
Do
If Range("M" & i).Value <> 0 Then anz = anz + Range("M" & i).Value
i = i + 1
zeile = zeile + 1
Loop While Range("A" & zeile) <> ""
max = Range("A1").Value
mittelwert = anz / max 'die durchschnittliche Eintragsnummer
'############################################
ReDim lMaxCount(max - 1)
For Each row In dt1.Rows
lMaxCount(i) = CDbl(row!Wert)
mittelwert = mittelwert + Math.Log(lMaxCount(i))
i = i + 1
Next
mittelwert = mittelwert / max 'die durchschnittliche Eintragsnummer
'############################################
