Hallo,
mit der If Version ist mir das zuviel Schreibarbeit...(zuviele Abfragen)

Code:
If Led_flag = 1 Then

      Reset Led_flag

      Incr Zeile

      If Zeile = 20 Then Zeile = 0                          'wenn die 20 Zeilen durch sind geht's von vorne los

      Position = Zeile * 10

      W1 = Lookup(position , 1)
      Incr Position
      W2 = Lookup(position , 1)
      Incr Position
      W3 = Lookup(position , 1)
      Incr Position
      W4 = Lookup(position , 1)
      Incr Position
      W5 = Lookup(position , 1)
      Incr Position
      W6 = Lookup(position , 1)
      Incr Position
      W7 = Lookup(position , 1)
      Incr Position
      W8 = Lookup(position , 1)
      Incr Position
      W9 = Lookup(position , 1)
      Incr Position
      W10 = Lookup(position , 1)

   End If
@Robert das muss ich mir noch mal ansehen - ich hab´s noch nicht verstanden...
Code:
' --------------- nachgemachter lookup 
   varia = tabelle + position  
   wert = CPEEK(varia)