Unterordner öffnen Name Left, 5 aus Zelle
12.07.2017 17:02:58
Tilo
ich brauche mal kurz Eure Hilfe:
In Zell F14 steht eine 6 Stellige Zahl
Die erste stelle ist nicht wichtig also Right(F14, 5)
Die klemme ich hinter den Pfad und möchte nun den Ordner öffnen
der meinetwegen 99999 heißt (F14 = 099999)
Das haut so aber nicht hin!?
Der Pfad selber ohne & Ordner lässt sich öffnen!
Wie kann ich das machen?
Danke mal und Gruß
Tilo
Sub OrdnerO()
Dim Ordner As String
Dim Pfad As String
Ordner = Left(Sheets("Request").Range("F14").Value, 5)
Pfad = "\\Server\Bla\Bla\Bla\Bla\_0 Bla_Bla (hm)\" & Ordner
Shell "Explorer.exe /e & Pfad", vbNormalFocus
End Sub