Moin Leute,

Sorry, ich hatte leider keine Zeit früher zu antworten.

@womb@t
Du meinst also in etwa so:
Code:
Sub Read_eeprom_index(byval Eeprom As Byte)                 'Find the start addy 
 Select Case Eeprom
   Case 1:
        Addressw = &B10100000                               'slave write address eeprom
        Addressr = &B10100001                               'slave read address eeprom
   Case 2:
        Addressw = &B10100010                               'slave write address eeprom
        Addressr = &B10100011                               'slave read address eeprom
 End Select
 Read_eeprom_word 0 , Samples                               
 Temp = Low(samples) : Temp = Temp -1                       '
 For Lus = 0 To Temp                                        'Loop the number of Samples found
 Tempw = Lus * 2                                            'Reading words, so steps 2
 Read_eeprom_word Tempw , Start_byte(lus + 1)       
 Tempw = Start_byte(lus + 1)
 Tempw = Tempw * 2                                          'Reading words, so steps 2
 Read_eeprom_word Tempw , Lenght(lus + 1)                   'Read the lenght of the sample from the eeprom
 Rotate Lenght(lus + 1) , Left , 8                          'Msb and Lsb are inverted so swap them
 Next Lus
End Sub
Das müßte eigentlich gehen. Thanxs!

@helimike0705:
Danke für den Link. Das kann ich für etwas anderes benutzen. Hier in
diesem Fall geht es nicht, da ich keine I/O (also nur die SCL SDA fürs
EEprom) am Mega-8 mehr frei habe. Außerdem ist die SD Karte VIEL
zu groß. Das ganze wird ein Delaytimer für Modellraketen. Da kommt
es auf die Größe an ;o)). Außerdem weiß ich nicht wie gut die SD
Karten und der Slot die hohen G-Kräfte beim Start verkraften.

viele internette Grüße,
Reinhard