Hallo

Danke für Deine Antwort.
aber ich komm da nicht ganz mit.
Meinst Du eventuell so:

Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte)
Print "Reg: " ; Adress ; " Val: " ; Daten
Reset Css
Spdr = Spi_write
Do
Loop Until Spsr.spif = 1
Set Css
Reset Css
Spdr = Adress
Do
Loop Until Spsr.spif = 1
Set Css
Reset Css
Spdr = Daten
Do
Loop Until Spsr.spif = 1
Set Css
End Sub

Gruß Manfred