Hallo Mollionair,

Tausch mal die beiden Zeilen:
Adchoch = Adch 'auslesen des ADCH
Adcniedrig = Adcl 'auslesen des ADCL

Das hat folgenden Grund:
Wenn ADCL gelesen wird, wird ADCL und ADCH solange blockiert, bis ADCH gelesen wird. Damit wird verhindert, dass während des Auslesens eine neue Wandlung in die Register eingetragen und das Ergebnis verfälscht wird.

felack