ich habe im Büro ein Excel Tool geerbt und müßte dieses nun anpassen. Leider ist der Code nicht auskommentiert und es gibt auch keine Dokumentation.
Hier gibt es folgende Zielen
Dim objShell As Object
Dim varDir As Variant
...(weitere Variablen)...
Set objShell = CreateObject("Shell.Application")
Set varDir = objShell.BrowseForFolder(0, "Konsolidierungsdateien importieren:", &H4000, ActiveWorkbook.Path)
Hier möchte ich nun ActiveWorkbook durch einen anderen Pfad (fest) ersetzen, wobei dann noch ein variabler Unterordner (mit Datumsbezeichnung) gewählt werden soll.
Könnt Ihr mir helfen?
Danke
Robert