Hallo,

dein ursprünglicher Code hat ja funktioniert, oder? Dann sollte das ja mit dem Abändern des Writeeeprom funktionieren:


Code:
dim i as byte, address as byte

For I = 1 To 15
Address = &H1F + I
Writeeeprom Testarray(i) , Address
Next