Private ex As Excel.Application
Private sh As Excel.Worksheet
Private wb As Excel.Workbook
 
Private Sub initCmbProjNr()
 
    Set ex = New Excel.Application
    Set wb = ex.Workbooks.Open(FPNRTemplatePath)            
    Set sh = wb.Sheets(1)
    sh.Activate
 
	'[...] Auslesen sh.cells()
 
    Set sh = Nothing
    wb.Close
    Set wb = Nothing
    ex.Quit
    Set ex = Nothing
Exit Sub