Ohne es ausprobiert zu haben denke ich, dass das an deinen impliziten Typ-Wandlungen liegt:
Wert = Accsumme / 256
Probier mal so:
Accsumme = Accsumme / 256
Wert = Accsumme
Du hast recht, so geht es.


Code:
Dim lSumme as Long 
Dim wDurchschnitt as Word at lSumme + 1 overlay 
Dim lEinzel as Long 

lSumme = 0 
for lEinzel = 3000 to 3255 
   lSumme = lSumme + lEinzel 
next 

print wDurchschnitt
Diese Variante ist natürlich wunderbar. Wenn ich bei 256 Messungen bleibe, ist diese Variante natürlichg erste Sahne.

Vielen Dank für Eure Bemühungen.


Stefan