Guten Abend,

Mittlerweile weiß ich, dass dieser Fehler nur bei dem Erstellen einer neuen Excel.Application auftritt. Diese ist aber bisher unerlässlich, um die Datei im Sharepoint erfolgreich ein- und auszuchecken. Nach dem bestimmen folgender Zeile: "Set xlwbk = xlApp.workbooks.Open(myFileName)" sollte vba doch das geöffnete Fenster als active ansehen?!

Noch immer wird der Wert 1 in der Excelldatei eingegeben, in welcher das makro läuft. Auffällig ist jedoch, dass dieser Wert erst erscheint, wenn ich die MsgBox "Datei erfolgriech geändert" bestätigt habe und die Zieldatei bereits eingecheckt wurde....

Ich hoffe, dass doch noch jemand eine Idee hat, wie ich das Active Fenster wählen kann.

Sub Neu()

Dim xlApp As Excel.Application
Dim xlwkb As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim myFileName As String
myFileName = "\\X.sharepoint.com@SSL\DavWWWRoot\sites\Datei.xlsx"



Application.ScreenUpdating = False

If workbooks.CanCheckOut(myFileName) = True Then
 workbooks.Checkout myFileName
  Else
  MsgBox "Die Datei wird bereits verwendet!"
Exit Sub
End If

Set xlApp = New Excel.Application
     xlApp.Visible = True
Set xlwbk = xlApp.workbooks.Open(myFileName)
'Set xlsheet = xlwbk.Sheets("Sheetname") <--- eine Idee das active-Fenster zu ändern

' ich hatte den Verdacht, dass die Datei nicht schnell genug geöffnet wurde und das Makro
' an der Zieldatei vorbeiläuft. Gelöst hat es das problem allerdings nicht.
Application.Wait (Now + TimeValue("0:00:5"))
With xlwbk
 Range("A1").Value = "1"
End With
xlwbk.CheckIn
 MsgBox " Datei erfolgreich geändert & eingecheckt! "
xlApp.Quit
  
Set xlApp = Nothing



Application.ScreenUpdating = True
        
End Sub