VBA-Close-Befehl erzeugt Fehler

Hallo Leute,
habe ein bislang ungelöstes Problem mit der Programmzeile:
Workbooks(datneinz & ".xlsm").Close False
Zum Hintergrund:
Zur Verwaltung von Urlaub wird je Mitarbeiter eine Einzel-Urlaubsliste angelegt, in der der Mitarbeiter seine Urlaubstage einträgt. Um die Übersicht zu behalten, werden diese Einzel-Urlaubslisten mit einer Gesamturlaubsliste mittels externen Bezügen verbunden. Das Verbinden erfolgt per Makro durch Suchen-Ersetzen-Befehl , so dass die Pfad- und Dateinamen auf den jeweiligen Mitarbeitername angepasst werden.
Problem:
Das Makro läuft so lange alle Einzel-Urlaubslisten ab, so lange diese nicht geändert wurden. So bald das Makro eine bereits geänderte öffnet, bleibt das Makro nach Abarbeitung aller anderen Programmzeilen mit der Meldung
"Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler"
auf der o. g. Zeile stehen. Davor lasse ich inzwischen abfragen, ob die Datei überhaupt noch geöffnet ist, was jedoch stets bejaht wird. Beende ich jedoch das Makro, weil eh nichts mehr anderes möglich ist (s. u.), dann ist die Datei aber doch geschlossen.
Fragen:
Warum kann der Befehl nicht ausgeführt werden?
Noch dazu die Frage: Warum kann der Zeilenmarkierer im Makro (gelbe mit Pfeil) nicht von der Zeile wegbewegt werden (was ich noch nie erlebt habe), auf der das Makro mit Fehlermeldung stehen geblieben ist?
Hoffentlich kann mir jemand helfen und im voraus bereits besten Dank.
Gruß
Ansgar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub UnterroutineUrlaubListeVerb(wburll, wburlvp, na, naz, nas, nvz, nvs, urlj) nachn = Workbooks(wburll).Worksheets("Urlaub Januar-Dezember").Cells(na, nas) datneinz = nachn & "_" & urlj Workbooks.Open Filename:=wburlvp & "\" & datneinz & ".xlsm" 'Berechnung auf manuell Application.Calculation = xlCalculationManual Workbooks(wburll).Activate Range(Cells(na, nvs), Cells(na, nvs + 369)).Select Selection.Replace What:=",[*!$", Replacement:=",[" & datneinz & ".xlsm]FGSU!$", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="'*!$", Replacement:="'" & wburlvp & "\[" & datneinz & ".xlsm]FGSU'! _ $", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveWorkbook.Save Workbooks(datneinz & ".xlsm").Close False End Sub

Hallo Albrecht,
bist Dur Dir wirklich sicher, daß nicht doch in irgend einer Ereignis-Routine der aktiven Arbeitsmappe, (da werden ja die Formeln geändert und damit mindestens das 'Worksheet_Change'-Ereignis der Tabelle ausgelöst!), die Workbooks(datneinz & ".xlsm")-Datei geschlossen wird.
Normalerweise schalte ich bei solchen Aktionen die Ergeinis-Routinen ab und hinterher wieder ein.
Warum wird diese Datei überhaupt geöffnet - Ich sehe keine weiteren Zugriffsaktionen darauf.
Hier mal ein Beispiel:


Sub UnterroutineUrlaubListeVerb(wburll, wburlvp, na, naz, nas, nvz, nvs, urlj)
Dim wb1 As Workbook, wb2 As Workbook
nachn = Workbooks(wburll).Worksheets("Urlaub Januar-Dezember").Cells(na, nas)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
datneinz = nachn & "_" & urlj
Set wb1 = Workbooks.Open(Filename:=wburlvp & "\" & datneinz & ".xlsm")
'Berechnung auf manuell
Set wb2 = Workbooks(wburll)
wb2.Activate
Range(Cells(na, nvs), Cells(na, nvs + 369)).Select
Selection.Replace What:=",[*!$", Replacement:=",[" & datneinz & ".xlsm]FGSU!$", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="'*!$", Replacement:="'" & wburlvp & _
"\[" & datneinz & ".xlsm]FGSU'!$", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
wb2.Save
wb1.Saved = True
wb1.Close False
Set wb1 = Nothing
Set wb2 = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread