Laufzeitfehler 9 VBA

Computer: Software & Programmierung Visual Basic
#1

Hallo Zusammen,
ich habe in Excel ein Makro geschrieben, dass beim Öffnen einer Datei im Hintergrund eine andere Datei öffnet und diese beim Schließen auch schließen soll, ohne sie vorher zu speichern.
Beim schließen (workbooks.close) tritt jedoch leider der Laufzeitfehler auf. Ich kann meinen Fehler leider nicht finden, vllt könnt ihr mir helfen.
Mein Code:

Sub verdecktes_öffnen()
Dim dateipfad$, aktuell$
dateipfad = „C:\Test\Test-Daten.xls“
aktuell = ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open Filename:=dateipfad, ReadOnly:=True
Workbooks(aktuell).Activate
Application.ScreenUpdating = True
End Sub

Sub Auto_Open()
Call verdecktes_öffnen
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DateiSchließen
End Sub

Sub DateiSchließen()
Application.DisplayAlerts = False
Workbooks(„C:\Test\Test-Daten.xls“).Close SaveChanges:=False
End Sub

Ich danke euch schonmal im Voraus

#2

Beim schließen (workbooks.close) tritt jedoch leider der
Laufzeitfehler auf. Ich kann meinen Fehler leider nicht
finden, vllt könnt ihr mir helfen.

Sub DateiSchließen()
Application.DisplayAlerts = False
Workbooks(„C:\Test\Test-Daten.xls“).Close SaveChanges:=False
End Sub

Hallo Sandra,

probiers mal so:

Workbooks(„Test-Daten.xls“).Close SaveChanges:=False

Gruß
Reinhard

Ich danke euch schonmal im Voraus

#3

Hallo Reinhard,

danke für deine Antwort, ich werd es morgen auf Arbeit gleich wieder ausprobieren und dann Bescheid geben, ob es funktioniert hat.

Gruß Sandra

#4

Hallo Reinhard,

ich habe es jetzt ausprobiert, funktioniert super, danke!

#5

Hallo nochmal,

also wie schon gesagt das Makro DateiSchließen funktioniert jetzt wunder bar, wenn ich es so aufrufe.
Eigentlich wolle ich es aber in der Workbook_BeforeClose ausführen lassen, sodass wenn ich meine Ursprungsdatei schließe, die Test-Daten.xls ohne zu speichern ebenfalls geschlossen wird.
Ich habe irgendwo gelesen, dass es wohl gar nicht möglich ist eine andere Datei so zu schließen.
Kann mir jemand helfen, wie ich das Problem anderweitig lösen kann.

Gruß Sandra

#6

Eigentlich wolle ich es aber in der Workbook_BeforeClose
ausführen lassen, sodass wenn ich meine Ursprungsdatei
schließe, die Test-Daten.xls ohne zu speichern ebenfalls
geschlossen wird.

Hallo Sandra,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks(„Test-Daten.xls“).Close SaveChanges:=False
End Sub

Gruß
Reinhard

#7

Hallo Reinhard,

nach deinem letzten Tip hab ich es genau so, wie du grad geschrieben hast, nur leider tut sich gar nichts, es kommt nicht mal eine Fehlermeldung.

Gruß Sandra

#8

nach deinem letzten Tip hab ich es genau so, wie du grad
geschrieben hast, nur leider tut sich gar nichts, es kommt
nicht mal eine Fehlermeldung.

Hallo Sandra,

probier dies mal:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox „Huhu“
Workbooks(„Test-Daten.xls“).Close SaveChanges:=False
End Sub

Kommt die msgBox ?

Gruß
Reinhard

#9

Hallo Reinhard,

nein, die MsgBox kommt leider auch nicht.

Gruß Sandra

#10

nein, die MsgBox kommt leider auch nicht.

Hallo Sandra,

steht denn der Code im richtigen Modul, also in „DieseArbeitsmappe“?

Lass mal dieses Makro laufen:

Sub tt()
Application.EnableEvents = True
End Sub

Gruß
Reinhard

#11

Ah jetzt klappts, danke.

Stand nicht im richtigen Modul.

Fürs nächste mal bin ich schlauer.