Dim Adw As Word
Dim Wertampin As Single
Dim Umes As Single

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc

Do

Adw = Getadc(5)
Wertampin = Adw * 0.0025
Umes = Wertampin * 10

Cursor Off
Upperline
Lcd "Umes= " ; Fusing(umes , "##.##") ; "V"
'Print "Umes= " ; Fusing(umes , "##.##")
Lowerline
Lcd "Wertampin= " ; Fusing(wertampin , "#.##") ; "V"

If Wertampin >= 2.3 Then
Lowerline
Lcd "Ue zu hoch "
End If



Waitms 100

Loop
End

Versuche mal diesen Code,
aber denke daran das dieser mit der internen Referenz arbeitet und sich den Wert vom ADC 5 holt.
Mir ist auch aufgefallen das in deinem Code nicht die referenzspannungsquelle angegeben ist.