Hallo zusammen,

ich versuche mit folgendem Code per Klick auf nen Commandbutton einen Ordner zu öffnen. Dies funktioniert an anderer Stelle mit dem exakt gleichen Code (nur anderer Ordner) wunderbar, aber aus unerfindlichen Gründen klappt es hier nicht.

An anderer Stelle lasse ich auch eine Datei in einem Unterordner von "Protokolle" speichern, das funktioniert wunderbar, der Ordner existiert also definitiv. Trotzdem spuckt mir Dir(ordner) aus, dass der Ordner nicht existiert.

Hat jemand eine Idee woran das liegen könnte?

Grüße

Jonas

Private Sub Button_Ordner_Click()

Dim ordner As String

ordner = ActiveWorkbook.Path & "\Verwaltung\Protokolle\"

'Ordner öffnen wenn vorhanden

If Dir(ordner) = "" Then
    MsgBox "Ordner existiert nicht"
Else: Shell "explorer.exe /e, " & ordner, vbNormalFocus
End If


End Sub