(defun C:Exceltest (/ EXCEL EXCELWORKBOOK SHEET SHEETLIST SHEETS)
  (setq dateipfad "J:/Reichel/ACAD/Bloecke/Generator/Schraubenliste.xlsx")
  (if (and
      (setq excel (setq excel (vlax-get-or-create-object "Excel.Application")))
      (setq ExcelWorkbook(vlax-invoke-method (vlax-get-property excel "Workbooks") 'Open dateipfad))
      (setq Sheets (vlax-get-property ExcelWorkbook 'Sheets)))
    (progn
    (vlax-for sheet Sheets
      (setq sheetList (cons (list (vla-get-name sheet)sheet)sheetList)))
    ;;;Zugriff, z.B. auf Tabellenblatt "Tabelle1"
    (setq sheet (cadr (assoc "Normen" sheetList)))
    ;;;Hier kann jetzt auf das sheet zugegriffen werden
    (setq	UsdRange (vlax-get-property sheet "Range" "A2:A7")
	        ExcData	 (vlax-safearray->list
		              (vlax-variant-value
		              (vlax-get-property UsdRange 'Value2)
		              )
		                )
    )      
    (setq ExcData (subst ") (" "" (mapcar (function (lambda (x) (mapcar 'vl-princ-to-string (mapcar 'vlax-variant-value x)))) ExcData)))
    (setq lstnorm (subst ") (" "" (ExcData)))
    ;(setq lstnorm (apply 'append  '(ExcData))) 
    (vlax-invoke-method ExcelWorkbook 'Close :vlax-false)
    (vlax-release-object excel))) 
  )