Zeile 151: If Empf_wert1 >= Test And Empf_wert1 <= Test2 Then
Aha, so funktioniert das Übersetzen:
Dim Test As Byte
Dim Test2 As Byte
empf_wert1 und test/test2 sind nicht der selbe Datentyp
Und das ist wohl noch ein Bug:
If Empf_wert1 <= Test Or >= Test2 Then
____________________^____________
Lesezeichen