Ich habe wieder Stunden mit folgendem Problem vertrödelt: (!!!!!!)
Dim objShell As Object, objFolder As Object, objItem As Object
Set objShell = CreateObject("Shell.Application")
With objShell
Set objFolder = .BrowseForFolder(0&, capt, 0, "c:\Eigene Dateien\")
End With
If Not objFolder Is Nothing Then
Set objItem = objFolder.Self
End If
pfad = Application.InputBox("Pfad: Ctrl. + c, nachher mit Ctrl. + v einfügen", "Pfad", objItem.path) ' InputBox für den Pfad
Wie muss ich dieses Makro abändern, dass es den Pfad aus der InputBox in die Zwischenablage kopiert, damit ich nachher in einer anderen InputBox diesen Inhalt mit Ctrl. + v einfügen kann?
Vielen herzlichen Dank für Deine Hilfe!
Gregor