Hello,
I think you forgot an I2C Stop
See the code below.
Greetings,
Drifter2006

Code:
$regfile = "m8def.dat"                                      ' Chip auswählen 
$crystal = 3686400                                          'hier Taktfrequenz eintragen 
$baud = 9600                                                'Baudrate RS232 
' 
Config Lcd = 16 * 2                                         'LCD-Display configurieren 
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portb.1 , Rs = Portb.2 
' 
Config Scl = Portc.5                                        'PINs für I2C Bus 
Config Sda = Portc.4 
I2cinit 
' 
Dim X As Byte 
Dim A As Word                                               'der wert, welcher ins EEPROM geschrieben werden soll 
Dim B As Word 
Dim Schreiben As Byte 
Dim Lesen As Byte 

'Die Adresse muß als Word-Variable definiert werden (Word=16Bit=0...65535) 
'Damit kann ein EEPROM mit 256KBit (24C256) angesprochen werden (Adressen von 0...32768) 
'und auch einer mit 512KBit (24C512). Adressbereich hier 0...65535 
Dim Adresse As Word At $160                                 'Die Adresse als Word-Variable 
Dim Low_adresse As Byte At $160 Overlay                     'Zeiger auf das erste Byte 
Dim High_adresse As Byte At $161 Overlay                    'Zeiger auf das zweite Byte 
' 
Config Adc = Single , Prescaler = Auto                      'AD-Wandler starten 
Start Adc 
' 
Ddrb = &B00000000                                           'Ein-Ausgänge definieren 
'Ddrc = &B00000000 
Ddrd = &B00010000 
' 
Initlcd                                                     'LCD initialiesieren 
Cursor Off 
Cls 
' 
' 
Upperline 
Lcd " Hallo AVR" 
Wait 2 
Cls 



'===================Hauptprogramm=============================================== 
'Do 

'----schreiben---- 
For Adresse = 1 To 10                                       'Adresse geht über die Byte-Grenze 
Incr X                                                      '1 bis Überlauf 
' 
'Disable Interrupts 
I2cstart                                                    'Start 
I2cwbyte &HA0                                               'Sende Slavadresse 
I2cwbyte High_adresse                                       'Sende Speicheradresse High 
I2cwbyte Low_adresse                                        'Sende Speicheradresse  LOW 
I2cwbyte X                                                  'Sende Wert 
I2cstop                                                     'stop 
Waitms 10 
'Enable Interrupts 
' 
Locate 1 , 1 
Lcd "->Adr." ; Adresse ; "Wert=" ; X ; "  "                 'Anzeige vom schreiben 
Waitms 500 
Next Adresse 

'---lesen---- 
'Disable Interrupts 
For Adresse = 1 To 10 
I2cstart                                                    'Start 
I2cwbyte &HA0                                               'Sende Slavadresse +1 für Schreiben 
I2cwbyte High_adresse                                       'Sende Speicheradresse High 
I2cwbyte Low_adresse                                        'Sende Speicheradresse Low 

I2cstop '<<<<<<<<<<<<<<<<<<<---------------------------------HERE'

I2cstart                                                    'Start 
I2cwbyte &HA1                                               'Sende Slavadresse +1 für Lesen 
I2crbyte Lesen , Nack                                       'Lese Adresse vom EEprom 
I2cstop                                                     'Stop 
'Enable Interrupts 
' 
Locate 2 , 1 
Lcd "<-Adr." ; Adresse ; "Wert=" ; Lesen ; "  "             'Anzeige vom lesen 
Waitms 500 
Next Adresse 

'loop