Dim exclApp As Object 'as Application
            Dim Datei As Object 'as WorkBook
            Dim Blatt As Object 'as WorkSheet
            exclApp = CreateObject("Excel.Application")
            With exclApp
                .Visible = True
                Datei = .Workbooks.Open("Pfad")
                Blatt = Datei.Worksheets("Vorlage") 
                Blatt.Range("C10").Value = "TEXT"
                Blatt.Range("C7").Value = "TEXT"
                Blatt.Range("H11").Value = "TEXT"
                Blatt.Range("H8").Value = "TEXT"
                Blatt.Range("J7").Value = "TEXT"
                Blatt.Range("J11").Value = "TEXT"
                Blatt.Range("F7").Value = "TEXT"
                Blatt.Range("F11").Value = "TEXT"
___________________________________
 
                Blatt.Shapes.AddPicture(in_Bildpfad, True, True, 200, 200, 200, _
                  200)
___________________________________
 
                'Datei.close(True)
                '.quit()
                'Save the Workbook and quit Excel.
                Datei.SaveAs(in_Zielpfad)
                Blatt = Nothing
                Datei = Nothing
                exclApp.Quit()
                exclApp = Nothing
                GC.Collect()
            End With