Speichern nicht möglich - Anderer Nutzer
08.05.2022 20:18:51
Max_Danger
leider habe ich noch immer ein Problem mit meinen Excel Abfragedateien.
Zum Aufbau
Es gibt mehrere Excel Dateien (Abfragen), welche mit Hilfe eines Makros alle paar Sekunden Daten abrufen und die Exceldatei sich anschließend automatisch abspeichert.
Darüber hinaus existiert eine Excel Datei (Master) welche mittels Power Query die Daten abruft und zusammenfasst. Diese Aktualisierung wird auch von einem Makro alle x Sekunden gestartet.
Problemstellung
Es kommt immer wieder vor, dass bei einer der "Abfragedateien" ein Hinweisfenster auftaucht.
Der Hinweis lautet: "Abfrage.xlsm wird momentan von einer anderen Person bearbeitet. Versuchen Sie es später noch einmal"
Nachdem ich den Hinweis mit "OK" bestätige läuft alles wie gewohnt weiter.
Makro Code (Abfragedatei)
Code:
Option Explicit
Sub Datenactual()
' Makro1 Makro
Application.DisplayAlerts = False
Const cRepeat As Integer = 50 ' Anzahl Wieder-Versuche nach Fehler
Dim iRepCnt As Integer
Windows("Abfrage.xlsm").Activate
ActiveWorkbook.RefreshAll
On Error Resume Next
Do
Err.Clear
ActiveWorkbook.Save
Select Case Err.Number
Case 1004
If iRepCnt = cRepeat Then
MsgBox "Abbruch, nach " & cRepeat & " Fehlversuchen!", vbCritical + vbOKOnly, "Fehler : " & Err.Number
On Error GoTo 0
Exit Sub
Else
iRepCnt = iRepCnt + 1
End If
Case Is 0
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler : " & Err.Number
End Select
Loop While Err.Number = 1004 And iRepCnt Ziel ist es, dass die Abfragedateien es so lange versuchen sich zu speichern, bis es funktioniert und anschließend weiter laufen.
Sprich es soll der Fehler "einfach" übergangen werden.
(Aktuell durch manuelles drücken des "OK" Buttons.)
Über Hilfe würde ich mich sehr freuen.
Vielen Dank
Anzeige