title image


Smiley Re: VBA möchte den Benutzer nur den Pfad zum Ordner auswählen lassen
Hallo



das sollte es sein



Sub Select_User_Folder()    Dim mySHFolderItem As Object, selPath As String, myObjShell As Object    Dim myDefaultPath As Variant 'wichtig muss Variant sein!    Dim myObjFolder As Object    myDefaultPath = Application.DefaultFilePath    Set myObjShell = CreateObject("Shell.Application")    Set myObjFolder = myObjShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, myDefaultPath)    If myObjFolder Is Nothing Then Exit Sub    Set mySHFolderItem = myObjFolder.Self    selPath = mySHFolderItem.path    MsgBox selPathEnd Sub


Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: