Hallo flammenvogel,

probier 'mal:
Code:
Function Rn_cmps_himmelsrichtung() As Word 
Local Msb As Byte 
Local Lsb As Byte 

I2cstart 
I2cwbyte 192 , Ack                                               'I2C Slaveadresse C0 
I2cwbyte 2                                                  'Register 2 und 3 auswählen
Waitms 10 
I2cstart 
I2cwbyte 193 , Ack                                               'Slaveadresse+1 (C1) 
I2crbyte Msb , Ack 
I2crbyte Lsb , Nack 
I2cstop 
Rn_cmps_himmelsrichtung = Makeint(lsb , Msb)                'Word aus 2 Byte machen 
End Function
Gruß Dirk