Writeeeprom spinnt ?

[guenter1604]

Hallo,

wenn ich Werte im EEprom speichere, werden benachbarte Szenen ebenfalls verändert. Wo liegt der Fehler?

Sub Eeprom(byval Schreiben As Byte , Byval Szenenspeicher As Byte)
   Local I As Byte
   Local K As Word
   K = Szenenspeicher * 48
   K = K + 2000
   For I = 1 To 48
      K = K + I
      If Schreiben = 1 Then
         Writeeeprom V_hell(i) , K
      Else
         Readeeprom V_hell(i) , K
      End If
   Next I
   Dirty = 1
End Sub

Günter