Also erstmal möchte ich dir frohe Weihnachten wünschen
Das finde ich sehr nett, dass du dir soviel Mühe gibst.

Meanrx liegt zwischen 63 und 137, das sind die beiden maximalen Knüppelstellungen. Allerdings stimmt das nicht ganz, da das ja ein Tiefpass ist und dieser normalerweise diese Extremwerte nicht erreichen kann. Eigentlich sehe ich keinen Grund, warum Empf kein Byte sein kann, aber ich habs mal probeweise eingespielt und da hats nicht funktioniert... Ich werds aber morgen nochmal probieren.

Hm, das habe ich mir schon gedacht. Aber wenns morgen mit einem Byte doch funktionieren sollte, dann ist das ja nicht mehr soooo schlimm, oder?
Also Werte > 255 werden nie im Empf-Array drinstehen.
Was genau meinst du mit temporären Variablen? So:
Code:
Dim Tmp1 As Word
Dim Tmp2 As Word
Dim Tmp3 As Word
Dim Tmp4 As Word
Dim Tmp5 As Word

...

Tmp1 = Empf(1)
Tmp2 = Empf(2)
Tmp3 = Empf(3)
Tmp4 = Empf(4)
Tmp5 = Empf(5)

If Tmp1 > 61 And Tmp1 < 139 Then
   Sempf(1) = Tmp1 - 61
   Sempf(1) = Sempf(1) * 3
End If
Oder so:
Code:
Dim Tmp1 As Word
Dim Tmp2 As Word
Dim Tmp3 As Word
Dim Tmp4 As Word
Dim Tmp5 As Word

Dim Stmp1 As Integer
Dim Stmp2 As Integer
Dim Stmp3 As Integer
Dim Stmp4 As Integer
Dim Stmp5 As Integer


...


Tmp1 = Empf(1)
Tmp2 = Empf(2)
Tmp3 = Empf(3)
Tmp4 = Empf(4)
Tmp5 = Empf(5)

If Tmp1 > 61 And Tmp1 < 139 Then
   Stmp1 = Tmp1 - 61
   Stmp1 = Stmp1 * 3
End If

Sempf(1) = Stmp1
Vielen Dank & Gruß
Chris