Pfadangabe in Zelle schreiben

Hallo Forumler
Ich habe Hans` CD einen Code zum Anzeigen eines Pfades abgewandelt, da ich diesen in eine Textbox übernehmen will.
Das Orginal:
Sub FileNamePath()
Dim vAdr As Variant
vAdr = Application.GetOpenFilename
If vAdr = False Then Exit Sub
MsgBox vAdr & Chr(13) & Dir(vAdr) & _
Chr(13) & Left(vAdr, Len(vAdr) - Len(Dir(vAdr)))
End Sub

Meine Version:


Private Sub CommandButton5_Click()
Dim vAdr As Variant
vAdr = Application.GetOpenFilename
If vAdr = False Then Exit Sub
TextBox1.Value = Left(vAdr, Len(vAdr) - Len(Dir(vAdr)))
End Sub

Meine Frage:
Das Anzeigen in der MsgBox erfolgt sofort nach dem Klick auf "Öffnen" im GetOpenFile - Dialog.
Warum wird der Pfad bei meiner Version erst nach zweimaligen Anklicken des "Öffnen" - Button im GetOpenFile in die Textbox übernommen?
Gruß Herbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter
Danke für den Tipp, habe mir einen Code rausgezogen der funktioniert aber leider nur mit MsgBox bzw. zum übertragen in eine Zelle. Ich brauche aber die Pfadangabe in einer TextBox, die in einer UserForm steckt. Weißt Du, wie ich die entsprechende Zeile bei DirAuswahl:
If sPath "" Then MsgBox sPath
ändern muß, um den Pfad als Ergebnis in die TextBox zu bringen?
If sPath "" Then TextBox1.Value = sPath - funzt nicht.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare


Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare 

Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long


Sub DirAuswahl()
Dim sMsg As String, sPath As String
sMsg = "Wählen Sie bitte einen Ordner aus:"
sPath = getdirectory(sMsg)
If sPath  "" Then MsgBox sPath ' Was muß hier stehen, um in meine UserFrom zu kommen?
End Sub




Function getdirectory(Optional msg) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(msg) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
getdirectory = Left(Path, pos - 1)
Else
getdirectory = ""
End If
End Function


Gruß Herbert

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pfadangabe in Zelle schreiben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread