Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche VBA Lösung

Suche VBA Lösung
25.04.2005 21:15:44
Josef
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche VBA Lösung
25.04.2005 21:19:10
K.Rola
Hallo,
wo ist der Code von GetDirectory?
Gruß K.Rola
AW: Suche VBA Lösung
25.04.2005 21:46:50
Josef
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
Anzeige
AW: Suche VBA Lösung
25.04.2005 21:21:03
MichaV
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.
AW: Suche VBA Lösung
25.04.2005 21:57:07
Josef
Hallo Micha!
Danke für Deine Hilfe. Funktioniert.
Schönen Abend noch.
Josef
AW: Suche VBA Lösung
25.04.2005 22:05:47
Mischa
hi,
oder hilft dir die funktion:
strPfad = inputbox("Pfad auswählen:", "")
mischa
AW: Suche VBA Lösung
26.04.2005 12:10:39
Josef
Danke Mischa für Deine Hilfe
Josef

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige