Speichern nicht möglich - Anderer Nutzer

Hallo zusammen,
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

Hat jemand vlt. eine Idee, wie ich das Hinweisfenster unterdrücken kann, bzw. wo der Fehler liegt?
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datenactual() ' Makro1 Makro 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 Application.DisplayAlerts = False ActiveWorkbook.Save Application.DisplayAlerts = True 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

Sub xxxx() Dim iVersuche As Integer Const cVersuche As Integer = 50 Application.DisplayAlerts = False With ThisWorkbook .RefreshAll Do .Save Loop Until .Saved Or iVersuche = cVersuche If Not .Saved Then MsgBox "Datei wurde nicht gespeichert!", , "gebe bekannt..." End With Application.DisplayAlerts = True End Sub

Sub BlattInhatInsDatei_schreiben() Dim fs As Object Dim Dat As Object Dim Z, Sp Dim msg As String Const cAnzSp = 10 Set fs = CreateObject("Scripting.FileSystemObject") Set Dat = fs.CreateTextFile("c:\testfile.txt", True) With Worksheets("json") 'für alle Zeilen For Each Z In Range(.Range("A2"), .Range("A99999").End(xlUp)) 'für ein festgelegte Anzahl an Spalten msg = "" For Sp = 0 To cAnzSp - 1 msg = msg & ";" & Z.Offset(0, Sp) Next 'ins Datei schreiben, erst ab 2te Stelle um führende ";" zu überspringen Dat.WriteLine Mid(msg, 2) Next End With Dat.Close End Sub

Beliebteste Forumthreads (12 Monate)

Speichern nicht möglich - Anderer Nutzer

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern nicht möglich - Anderer Nutzer

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread