<span style="color: rgb(0, 0, 0); font-family: verdana, arial, tahoma; background-color: rgb(245, 245, 245);">Hallo zusammen,
von jetzt auf gleich funktioniert ein Teil meines Makros nicht mehr, was ich so oder so ähnlich schon unzählige Male für die Erstellung von PowerPoint-Reports verwendet habe.</span>
<span style="color: rgb(0, 0, 0); font-family: verdana, arial, tahoma; background-color: rgb(245, 245, 245);">Die Fehlermeldung lautet: </span><i style="color: rgb(0, 0, 0); font-family: verdana, arial, tahoma;">"Laufzeitfehler '1004': Die Close-Methode des Workbook-Objektes konnte nicht ausgeführt werden."</i><span style="color: rgb(0, 0, 0); font-family: verdana, arial, tahoma; background-color: rgb(245, 245, 245);"> und tritt immer auf, wenn ich innerhalb eines PowerPoint-Berichts im Daten-Bereich eines Diagramms Daten einfügen und das Diagramm-Datenblatt dann anschließend schließen möchte.</span>
<span style="color: rgb(0, 0, 0); font-family: verdana, arial, tahoma; background-color: rgb(245, 245, 245);">Ein Beispiel:
</span>
foliennummer = 2
diagramm_name = "Diagramm"
anfang_zeile_ppt = 2
spalte_werte_diagramm = 2
With pptApp.ActivePresentation.Slides(foliennummer).Shapes(diagramm_name).Chart
With .ChartData
.Activate
With .Workbook.Worksheets(1)
anfang_zeile_ppt_tabelle = 2
For zeile = 4 To 17
.Cells(zeile - 2, 2) = file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm).Value
Next zeile
For zeile = 4 To 17
.Cells(zeile - 2, 3) = file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm + 1).Value
Next zeile
End With
End With
ChartData.Workbook.Close. -- hier stoppt das Makro
End With