Also schön, wenn es so klappt, folgendes könntest du noch änder (minimal):

Ich hab dir ja geschriben:

If I > Led1 Then Portd.5 = 0
If I <= Led1 Then Portd.5 = 1
Sinniger wäre:

If I >= Led1 Then Portd.5 = 0
If I < Led1 Then Portd.5 = 1

da sonst auch bei 0, da =0 immer ein Verhältniss von 1 zu 255 entsteht, auch bei Ledx = 0, aber ich glaube kaum dass das was ausmacht.

MFG Moritz