Das Makro hat immer gut funktioniert.
Der Workbooks.open Befehl wird kurz vorher noch mit der geleichen Datei erfolgreich gemacht.
Dann will ich die Datei schließen, die dan ndas startet.
Zeitweise funktioniert die Funktion, zeitweise nicht.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Update_Aus
Call datei_öffnen_a("Urlaubsplanung\", "offenNEU", "Schreiben")
If Workbooks("offenNEU.xlsx").Sheets("Tabelle1").Cells(Range("Zeile"), Range("Spalte_Jahr") + 2) _
_
"x" Then
Workbooks("Abwesenheit.xlsm").Activate
MsgBox "Die Datei wurde von einem anderen Rechner aus entsperrt und vermutlich bearbeitet. _
Daten daher besser nicht sichern!!!"
End If
Workbooks("offenNEU.xlsx").Close SaveChanges = False
Speicher_Abfrage.Show
End Sub
Mit dem Call Befehl wir dein Makro gestartet, was zu diesem Befehl führt:
Workbooks.Open Filename:=Pfad_NOR + CStr(Dateiname) + ".xlsx", ReadOnly:=lesen
Es werden alle Werte richtig übertragen, trotzdem öffnet sich die Datei nicht, es kommt aber auch kein Fehler.Bin schon am verzweifeln.
Gruß
Karsten