Code:
Sub Send 

Disable Timer1 
Disable Interrupts                                          'Deaktivieren von Timer1 und Interrupts da aktion Zeitkritisch! 

For Adr2 = 1 To 255 step 2                                          'Adressen 1 bis 255 auslesen und an UART ausgeben 
Adr3 = Adr2 + 1 
Readeeprom Tempread , Adr2                                  'Lese Eeprom aus 
Readeeprom Tempread2 , Adr3                                  'Lese Eeprom aus 
Tempread3 = Makeint(Temread , Tempread2) 
Print Tempread3                                              'Temperatur an UART ausgeben 
Next Adr2 

Enable Timer1 
Enable Interrupts                                           'Timer1 und Interrupts wieder aktivieren! 

End Sub
Nönö garnicht wollt ich eigentlich auch machn habs aba denn doch vergessen