|
hat sich erledigt. Ich hab die Lösung!
Sub OrdnerOeffnen()
Dim fso As Object
Dim unterordner As Object
Dim ordner As Object
Dim quellordner As String
Dim suchname As String
Dim objno As String
project = ActiveCell.Value
Set fso = CreateObject("Scripting.FileSystemObject")
quellordner = "C:\Ordner\projekte\20" & Left(project, 2) & "\"
suchname = project
Set unterordner = fso.GetFolder(quellordner).Subfolders
For Each ordner In unterordner
If Left(ordner.Name, Len(suchname)) = suchname Then Projektpfad = quellordner & ordner.Name
Next
Shell "explorer.exe /e, " & Projektpfad, vbMaximizedFocus
End Sub
|