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 Liste ... 
repeat with i from 1 to count of tmpList 
  -- ... und die Werte als Bruchzahlen an die endgültige Liste hängen 
  set end of valList to item i of tmpList as real 
end repeat 
 
tell application "Adobe InDesign CS4" 
  activate 
  tell document 1 
    -- das Objekt duplizieren ... 
    set newLine to duplicate graphic line "Linie" 
    -- ... und um den ersten Wert verschieben 
    move newLine by [item 1 of valList, 0] -- = [x, y] 
    -- eine Schleife durch die Liste, ab Element 2 
    repeat with i from 2 to count of valList 
      -- das neue Objekt duplizieren ... 
      set newLine to duplicate newLine 
      -- ... und um den aktuellen Wert verschieben 
      move newLine by [item i of valList, 0] 
    end repeat 
  end tell 
end tell 

set usedRange to text returned of (display dialog "Bereich der Excel-Zellen:" default answer "A1:A3") 
 
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 usedRange) 
      end tell 
    end tell 
  end try 
end tell 

tell application "Microsoft Excel" 
  try 
    tell workbook 1 
      tell sheet 1 
        -- die Werte in eine temporäre Liste setzen 
        set tmpList to value of used range 
      end tell 
    end tell 
  end try 
end tell 

tell application "Adobe InDesign CS5" 
  activate 
  tell document 1 
    tell page item "OrtA" 
      set {y1, x1, y2, x2} to geometric bounds 
    end tell 
    set curX to x1 + 7 
    move page item "OrtB" to [curX, y1] 
  end tell 
end tell 

		set myGroup to geometric bounds of group "OrtA" --Resultat: {67.0, 4.0, 145.75, 82.333333333333} 

item 1 of myGroup --> 67.0