ungewolltes Makro-ENDE nach Workbook.Close Befehl

Hi Leute
Zur Zeit jagt bei mir ein Excel-Problem das nächste :-)
folgendes Szenario:
Datei1 (neue Makros, keine Daten)
öffnet
Datei2 (veraltete Makros, eingegebene Daten)
Datei1 wird mit Daten aus Datei2 aktualisiert
Datei2 wird wieder geschlossen
Datei2 wird gelöscht
Datei1 wird als Kopie mit Namen von Datei2 gespeichert
Datei2 wird geöffnet (mit EnableEvents = False)
Soll-Zustand in Datei2 für späteren Start durch User wird hergestellt
Datei2 wird gespeichert und geschlossen
----- jetzt kommt Problem -----
Datei2 wird geöffnet (mit EnableEvents = True)
- soll jetzt die "Makro-Kontrolle" übernehmen
Datei1 soll geschlossen und danach gelöscht werden
aber.....
Datei1 wird zwar geschlossen (Workbook("Datei1") False), aber jetzt hört das Makro einfach auf, weiter zu arbeiten - so als ob der End-Befehl ausgeführt wird (kein Fehler, keine Meldung, nix)
Es müsste nur noch der Kill-Befehl für Datei1 ausgeführt werden, was aber NICHT passiert - wieso nicht?
Szenario Ende
Kann es vielleicht sein, dass Datei1, weil in ihr das Makro gestartet wurde, sozusagen die "Mutter" ist, und wenn Datei1 geschlossen wird, dass das dann der Grund dafür ist, dass weitere Makros anderen Ursprungs NICHT ausgeführt werden - obwohl eigtl noch aktiv?
Wenn dem nicht so ist, kennt vielleicht jemand den Grund?
Und wenn doch, weiß jemand vielleicht eine Lösung, wie Datei1 nach Schließen gelöscht werden kann?
Sollte es notwendig sein, dass eine Bsp-Zip (mit Datei1+Datei2) benötigt wird, dann fragt einfach.
Danke schon mal für eure Gedanken, die ihr mir "leiht"....aber auch nur dann Danke, wenn ihr es wirklich tut ;-)
Ciao
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub KillDatei1() Dim strPath$ Dim oWB1 As Workbook strPath = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") On Error Resume Next Set oWB1 = Workbooks("Datei1.xls") Do While Not oWB1 Is Nothing DoEvents Set oWB1 = Workbooks("Datei1.xls") Loop If Dir(strPath & "Datei1.xls") <> "" Then _ Kill strPath & "Datei1.xls" If Err.Number <> 0 Then MsgBox "Datei wurde gelöscht", vbInformation Else MsgBox Err.Number & vbCr & vbCr & Err.Description, vbCritical, "Fehler" End If End Sub

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim oWB2 As Workbook On Error Resume Next Set oWB2 = Workbooks("Datei2.xls") If Not oWB2 Is Nothing Then Application.OnTime Now + TimeSerial(0, 0, 3), "Datei2.xls!KillDatei1" End If End Sub

Sub KillDatei1() Dim strPath$ Dim oWB1 As Workbook strPath = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") On Error Resume Next Set oWB1 = Workbooks("Datei1.xls") Do While Not oWB1 Is Nothing DoEvents Set oWB1 = Workbooks("Datei1.xls") Loop Err.Clear If Dir(strPath & "Datei1.xls") <> "" Then _ Kill strPath & "Datei1.xls" If Err.Number = 0 Then MsgBox "Datei wurde gelöscht", vbInformation Else MsgBox Err.Number & vbCr & vbCr & Err.Description, vbCritical, "Fehler" End If End Sub

...dass ich fast zeitgleich mit dir "meine" Lösung gefunden habe, da ich ja auch selbst weiter suchte, und du nun leider umsonst deine Zeit investiert hast.
Ich hatte hier noch nicht die Lösung gepostet, da ich sie selbst erst seit n paar Minuten weiß.
Hi Tino
Vielen Dank für deine Mühe!!!!
Gelöst habe ich mein Problem, in dem ich nicht mehr
Datei1 als Kopie mit dem Namen von Datei2 speicher
(ThisWorkbook.SaveCopyAs Datei2)
sondern ich versuchte es erfolgreich, in dem ich einfach
Datei1 direkt unter dem Namen von Datei2 speicher
(ThisWorkbook.SaveAs Datei2)
Somit werden mehrere Bedingungen gleichzeitig erfüllt.
- Datei1 (neue Makros, ohne Daten) wird automatisch Datei2 (zuvor alte Makros, eingegebene Daten, jetzt neue Makros und Daten)
- Datei1 ist ja durch Speichern unter anderem Namen "geschlossen" - so entfällt der .Close-Befehl
- Datei1 wird zu Datei2 und bleibt (nach meinem obigen Verständnis) bis zum Schluss "Mutter" aller Makros, und diese werden nun auch klaglos ausgeführt; auch das Löschen von Datei1
Trotzdem noch mal vielen Dank an dich!
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

ungewolltes Makro-ENDE nach Workbook.Close Befehl

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread