Makro bricht unerwartet ab
20.09.2017 10:46:05
ZD14
ich bin wieder über ein sehr spezielles Problem in meinem Code gestoßen!
Folgendes Wunschprogramm:
1. Das Makro wird gestartet
2. UserForm öffnet sich --> Excel-Datei aus Liste auswählen
3. gewählte Datei öffnet sich
4. UserForm öffnet sich --> Arbeitsblatt von der vorhin gewählten Datei aus Liste auswählen
5. Im gewählten Arbeitsblatt wird ein bestimmter Bereich kopiert
6. PowerPoint wird geöffnet und eine Vorlage geladen
7. Zwischenablage wird eingefügt
8. gewählte Datei wird geschlossen
9. aus erster Datei wird ein bestimmerter Bereich kopiert und im PowerPoint eingefügt
ENDE
Bis Punkt 8 läuft alles spitze durch! Nach dem Schließen der zweiten Excel-Datei passiert aber gar nichts mehr! GAR nichts!
Ich habe ein On Error GoTo eingebaut, dieses wird aber nicht aufgerufen.
Ich habe MsgBoxen eingefügt, diese werden allerdings ab dem Schließen der gewählten Datei nicht mehr angezeigt.
Ich bin den Code mit F8 durchgegangen. Dabei macht sich der Code ab dem Öffnen von PowerPoint selbständig (die Befehle werden trotz F8 schnell abgearbeitet) und bricht dann nach dem Schließen wieder ab.
Hier noch der entscheidende Teil des Codes:
ActiveWorkbook.Sheets(str_sheet).Range("C4:AJ38").Copy 'die gewählte Datei ist aktiv!
'BIS HIER HIN WIRKT F8
'create presentation
Set oPPT = CreateObject("Powerpoint.Application") 'Dim oPPT as Object geschieht früher
With oPPT
.Visible = True
.Presentations.Open Filename:="L:\XXXX\Templates\Master_CW.pptx"
End With
oPPT.WindowState = ppWindowMinimized
'insert data from second file
int_j = 2
PowerpointGateExportHelp int_j 'Fügt die Zwischenablage in der PowerPoint ein
Application.DisplayAlerts = False
ActiveWorkbook.Close 'BIS HIER HIN LÄUFTS DURCH
Application.DisplayAlerts = True
'insert data from first file
BCM.Activate 'BCM as Workbook --> vorher auf ursprünglich geöffnete Datei gesetzt
BCM.Sheets("PM-DB").Range("C15:X55").Copy
Hat irgendwer eine Idee was ich falsch mache? Ich verzweifle schon ein wenig ..
Vielen Dank!
LG ZD14
Anzeige