Hallo,

ich kopiere etwas aus einer Datei in mehrere verschiedene Dateien.

Allerdings kann es vorkommen, dass ein anderer Benutzer die Datei sperrt, weil diese geöffnet ist durch den User. Jetzt würde ich gerne die nächsten Datei bearbeiten ohne
das die VBA auf Fehler läuft.

Zusätzlich sollen die Informationen aus der Meldung Durch einen anderen Benutzer gesperrt in einer anderen Excel Datei gesammelt und gespeichert werden, damit ich nachher weiß welche der 200 Dateien nachbearbeitet werden müssen.

Hier der Code:

Sub Eintragung()

Workbooks.Open Filename:="C:\Datei1\test.xlsx"

Range("B1048576").End(xlUp).Offset(1, 0).Select

ActiveWorkbook.Save
ActiveWorkbook.Close

Range("C10").Select
Selection.Copy
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C11").Select
Selection.Copy

Workbooks.Open Filename:="C:\Datei1\test.xlsx""

Range("B1048576").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial

ActiveWorkbook.Save
ActiveWorkbook.Close

'Absatz

Workbooks.Open Filename:="C:\Datei2\test.xlsx"

Range("B1048576").End(xlUp).Offset(1, 0).Select

ActiveWorkbook.Save
ActiveWorkbook.Close

Range("C10").Select
Selection.Copy
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C11").Select
Selection.Copy

Workbooks.Open Filename:="C:\Datei2\test.xlsx""

Range("B1048576").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

Hat jemand eine Lösung?