ich verwende folgenden Code, um Werte aus einer Datei in eine andere zu schreiben.
Soweit klappt damit alles gut, ich würde allerdings gerne noch eine Fehlerroutine einbauen:
Normalerweise ist die Zieldatei geschlossen, es könnte aber theoretisch sein, dass ein User sie einmal genau dann geöffnet hat, wenn ich per Makro dort hineinschreiben möchte.
Kann mir jemand sagen, ob und wie ich prüfen kann, ob die Datei gerade geöffnet ist bzw. wie ich sicherstellen kann, dass ich entweder hineinschreiben und speichern kann oder eine Fehlermeldung (MsgBox) anzeigen kann ?
Mein Code:
Dim varPath As String
varPath = Worksheets(1).Range("StoragePath").Value & "Reporting-Log.xlsx"
Application.ScreenUpdating = False
Workbooks.Open Filename:=varPath
With Worksheets(1)
.Select
.Cells(1, 1).End(xlDown).Offset(1, 0).Value = varRowCount
.Cells(1, 2).End(xlDown).Offset(1, 0).Value = Format(Now, "yyyy-mm-dd hh:mm:ss")
.Cells(1, 3).End(xlDown).Offset(1, 0).Value = Environ("Username")
End With
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
Vielen Dank im Voraus für Eure Hilfe, Tim