Ich möchte mit nachfolgendem Makro abfragen, ob ein bestimmter Pfad existiert. Wenn nicht, soll ein entsprechendes Verzeichnis angelegt werden.

Sub VerzeichnisFinden()

Dim strVerzeichnis As String
Dim SDatei As String

SDatei = Worksheets("Grundlagen").Range("AE6").Value

strVerzeichnis = "D:\abs\SRE\Photovoltaik\Projekte\" & SDatei & "\Berechnungen\xlsm" 'Überprüfen ob Verzeichnis vorhanden

If Dir(strVerzeichnis, vbDirectory) = "" Then
MsgBox strVerzeichnis & " gibt es nicht!"
VBA.MKDir "D:\abs\SRE\Photovoltaik\Projekte\" & SDatei & "\Berechnungen\xlsm"
Else
GoTo Ende:
End If
Ende:
End Sub

Beim Initialisieren des Makros kommt folgende Fehlermeldung
"Laufzeitfehler '75':"
Pfad nicht gefunden.
Der Ordner SDatei ist variabel und in der Zelle AE6 als Text hinterlegt

Danach ist die Zeile: VBA.MKDir "D:\abs\SRE\Photovoltaik\Projekte\" & SDatei & "\Berechnungen\xlsm" gelb hinterlegt.