Hallo

Besten Dank albundy
werde natürlich auch noch Deine Lösung testen,
aber ich habe es nun auch geschaft mit dieser Lösung:
Do
If Pind.3 = 0 And Pwm1a = 0 Then
Do
Pwm1a = Pwm1a + 1
Waitms 20
Loop Until Pwm1a = 255
End If
If Pind.4 = 0 And Pwm1a = 255 Then
Do
Pwm1a = Pwm1a - 1
Waitms 20
Loop Until Pwm1a = 0
End If
Loop

funst jedenfals bestens
Aber nochmals meinen Dank an albundy ohne seine Vorschläge wäre ich nicht auf diese Lösung gekommen
reini