Hallo KingLoeffel,
und hier ist das Vorgehen, welches sich schon mehrfach bewährt hat. Zum Beispiel bei Bestellnummern.
tell application "Microsoft Excel"
try
tell workbook 1
tell sheet 1
-- die Werte in eine temporäre Liste setzen
set tmpList to (value of range "A1:A3")
end tell
end tell
end try
end tell
-- die endgültige Liste initialisieren
set valList to {}
-- eine Schleife durch die temporäre Liste ...
repeat with i from 1 to count of tmpList
-- ... und die exponentielle Schreibweise in eine Ganzzahl verwandeln
set curItem to (item i of my tmpList) as integer
if curItem is not 0 then
-- ... und als String an die definitive Liste hängen
set end of valList to curItem as string
else
exit repeat
end if
end repeat
valList
Das Konvertieren 'as integer' genügt an sich schon. Die Prüfung 'is not 0' dient nur zum Feststellen, ob nicht der Beginn von leeren Zellen erreicht ist.
Anschliessend werden die Zahlen als String an die fertige Liste gehängt. Diese erneute Konvertierung kann wegfallen, wenn Zahlen gewünscht sind.
Gruss, Hans
