Suche VBA Lösung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Suche VBA Lösung
von: Josef
Geschrieben am: 25.04.2005 21:15:44
Guten Abend!

Ich habe folgenden VBA Text:


Private Sub CommandButton1_Click()
   Dim strPfad As String
   strPfad = GetDirectory("Pfad auswählen:")
   If strPfad = "" Then MsgBox "Keine Auswahl!"
End Sub

Wie bekomme ich jetzt bitte die Pfadauswahl in die TextBox1 ?

Danke

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: K.Rola
Geschrieben am: 25.04.2005 21:19:10
Hallo,
wo ist der Code von GetDirectory?
Gruß K.Rola
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef
Geschrieben am: 25.04.2005 21:46:50
Hallo!
Folgender Code ist von Schmittis Homepage:
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

Function GetDirectory(Msg) As String
    Dim bInfo As BROWSEINFO
    Dim path As String
    Dim r As Long, x As Long, pos As Integer
    With bInfo
        .pidlRoot = 0&
        .lpszTitle = Msg
        .ulFlags = &H1
    End With
    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


Sub Aufruf()
    s = GetDirectory("Bitte wählen Sie einen Ordner")
    MsgBox s
End Sub

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: MichaV
Geschrieben am: 25.04.2005 21:21:03
Hi,
aus "If strPfad = "" Then MsgBox "Keine Auswahl!"" schließe ich mal, daß strPfad den Pfad enthält.
Dann kriegst Du mit textbox1.text=strPfad den Pfad in die Textboxt.
Gruß! Micha
PS: Rückmeldung wäre nett.
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef
Geschrieben am: 25.04.2005 21:57:07
Hallo Micha!

Danke für Deine Hilfe. Funktioniert.
Schönen Abend noch.

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: Mischa Richter
Geschrieben am: 25.04.2005 22:05:47
hi,
oder hilft dir die funktion:
strPfad = inputbox("Pfad auswählen:", "")
mischa
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef
Geschrieben am: 26.04.2005 12:10:39
Danke Mischa für Deine Hilfe

Josef
 Bild

Beiträge aus den Excel-Beispielen zum Thema "springen ausschalten"