Hallo,

wie muss eine Sharepoint URL aussehen damit die per VBA geöffnet werden kann. Hintergrund ist ich möchte überprüfen ob eine Ordner im Sharepoint vorhanden ist und wenn nicht soll ein neuer erstellt werden. 

Hier mein alter Code welcher sich auf den OneDrive Ordner auf meinen Rechner bezieht:

Sub NeuerOrdnerAnlegenFinalKurz()
  c00 = "..\OneDrive - Firma\Arbeiten\"
  With ActiveCell
     c01 = Cells(.Row, 4) & " " & Cells(.Row, 3)
  End With
 
    If Dir(c00 & c01, 16) = "" Then
        CreateObject("Scripting.FileSystemObject").CopyFolder c00 & "\Vorlage", c00 & c01
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & "wurde angelegt.", vbOKOnly, "Arbeiten"
    Else
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & " ist bereits vorhanden!", vbCritical, "Arbeiten"
    End If
End Sub

Damit der Code auch auf anderen Rechner funktioniert würde ich gerne den relative Pfad von c00 auf den absoluten von Sharepoint ändern. Wenn ich jetzt aber den Pfad einfügre kommt der Fehler: Laufzeitfehler 53: Datei nicht gefunden und bezieht sich auf die Spalte:

If Dir(c00 & c01, 16) = "" Then

Wenn ich den Pfad direkt im Brower einfüge öffnet sich der Ordner "Arbeiten" im Sharepoint.

Hier der neue Code mit Sharepoint Link:

Sub NeuerOrdnerAnlegenSharepoint()
  c00 = "https://dbsw.sharepoint.com/sites/Firma/Freigegebene%20Dokumente/Forms/AllItems.aspx?RootFolder=%2Fsites%2FTeamNordKabe%2FFreigegebene%20Dokumente%2FOrt%20%2D%20Ort%2FArbeiten"
  With ActiveCell
     c01 = Cells(.Row, 4) & " " & Cells(.Row, 3)
  End With
 
    If Dir(c00 & c01, 16) = "" Then
        CreateObject("Scripting.FileSystemObject").CopyFolder c00 & "\Vorlage", c00 & c01
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & "wurde angelegt.", vbOKOnly, "Arbeiten"
    Else
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & " ist bereits vorhanden!", vbCritical, "Arbeiten"
    End If
End Sub

Ich hoffe mir kann jemand helfen, alleine komme ich wohl zu keiner Lösung.

Gruß Sabrina