Ahh ok Vielen Dank.

Mein Code sieht jetzt so aus:

Code:
Set Ucsr1b.txcie1
On UTXC1 Txd_Ready
Do

   ' Alle Daten empfangen
   If _rs_bufcountr1 >= 17 Then

                             Rs485dir1 = 1                  ' Auf Sendemodus schalten

                             Waitus 500

                             ' Sende 17 Bytes aus dem Bytearray ab Position 1
                             Printbin #1 , S_bus_sendearray(1) , 17 ;
    End If
Loop

Txd_Ready:
  ' Prüfen ob der Ausgangspuffer leer ist
  If _rs_bufcountw1 = 0 Then
      Waitus 500
      Rs485dir1 = 0                                         ' Auf Empfangsmodus schalten
   End If
Return
Ich bin mal gespannt, ob das nun so funktioniert? Bild  
Eigentlich müsste ich doch die Zeile " If _rs_bufcountw1 = 0 Then" auch weglassen können oder? Da das Event nur gefeuert wird, wenn der komplette Sendepuffer leer ist?