In Endlosschleife gefangen
05.11.2016 18:50:06
Hans
Zur Erklärung ..
Mehrere Rechner greifen auf im Netzwerk auf freigegbene Dateien zu.
Per Makro werden mehre Dateien gespeichert und damit die änderungen der Anderen übernommen.
Um Fehler bei gleichzeitigem Speichern zu verhindern habe ich diese Methode.
Solange der Satus auf 2 ist soll das Programm in der Schleife bleiben.
Sobald der Status wieder auf 1 ist ( passiert am Ende es Speicher Makros ) soll die Methode weiterlaufen.
Aber das Ändern des Status wird nicht übernommen. Also in der dritt letzen Zeile wird die Freigegebene Datei Status.xls nicht gespeichert.
Kann mir jemand weiterhelfen?
LG
Sub statusabfrage()
Dim i As Integer
Dim status As Integer
If wksStatus Is Nothing Then _
Set wksStatus = Workbooks("Status.xls").Worksheets("Status")
wksStatus.Activate
ActiveWorkbook.Save
status = wksStatus.Range("B2")
i = 1
Do While i 0 Then Exit Do
If status = 1 Then
Exit Sub
End If
wksStatus.Activate
ActiveWorkbook.Save
Loop
End Sub