ich öffne bei Klick auf den Commandbutton die Datei Test, um Werte in diese zu schreiben.
Private Sub CommandButton1_Click()
'Datei öffnen
Dim Claim As Workbook, bereich As Range
Set Claim = Workbooks.Open("Test.xlsx")
Set bereich = Claim.Sheets("Archiv").UsedRange
'hier startet der Eintrag
Dim intZ As Integer
intZ = Range("C65536").End(xlUp).Row + 1
Cells(intZ, 1) = CStr(intZ + 4000)
Jetzt arbeiten aber mehrere Leute zeitgleich mit dem Formular. Darum möchte, dass vor öffnen der Datei geprüft wird, ob diese schon von einem anderen User geöffnet ist, wenn ja, dann soll diese nach 5sek erneut versucht werden zu öffnen, wenn die Datei geschlossen ist soll meine Prozedur starten.Ich habe leider bisher über Google keine Lösung gefunden die funktioniert.