Also wenn ich das etz richtig deute, dann braauche ich sehr woll einen externen takt
Etwas anderes habe ich auch gar nicht behauptet. Ich habe nur gesagt, dass es nicht unbedingt ein Quarz sein muss.

Code:
Dim Adress as Word, H as byte, L as Byte, Wert as Byte 
H=High(Adress) 
L=Adress                            

'schreibt einen Wert in den 24C256 
I2cstart                                                
I2cwbyte &B1010_0000         'Adresse des Eeprom                        
I2cwbyte H                           'Speicherstelle im Eeprom als Word
I2cwbyte L                            'da der Bereich von 0 - 7FFF geht
I2cwbyte Wert                      'Wert schreiben                    
I2cstop                                                

'liest einen Wert aus dem 24C256 
I2cstart                                                 
I2cwbyte &B1010_0000         'Adresse des Eeprom                        
I2cwbyte H                           'Speicherstelle wo der Wert steht
I2cwbyte L
I2cstart                                
I2cwbyte &B1010_0001         'Lese Kommando  
I2crbyte Wert , Nack             'Wert auslesen
I2cstop
Ich hoffe es stimmt alles, den Code habe ich gerade aus dem Kopf erstellt, da ich im Moment das Datenblatt nicht hier habe.