(defun c:testit ()

  (setq excel         (vlax-get-object "excel.application")
        ExcelWorkbook (if excel
                        (vlax-get-property excel "ActiveWorkbook")
                        ) ;_ end of if
        ExcelSheet    (if ExcelWorkbook
                        (vlax-get-property ExcelWorkbook "ACTIVESHEET")
                        ) ;_ end of if
        ExcelCells    (if ExcelSheet
                        (vlax-get-property ExcelSheet "CELLS")
                        ) ;_ end of if

        selec         (if ExcelCells
                        (vlax-get-property Excelcells "areas")
                        ) ;_ end of if

        selec1        (if selec
                        (vlax-get-property selec "application")
                        ) ;_ end of if

        selec2        (if selec1
                        (vlax-get-property selec1 "selection")
                        ) ;_ end of if
        spalte        (if selec2
                        (vlax-get-property selec2 "column")
                        )
        zeile        (if selec2
                        (vlax-get-property selec2 "row")
                        )
        



 ;_ end of if
        ) ;_ end of setq

  (vlax-put-property selec2 "Value2" "Es klappt!!")

  (princ "Wert in ")
  (princ (itoa spalte))
  (princ ". Spalte und " )
  (princ (itoa zeile))
  (princ ". Zeile ausgelesen")
   
  )