---

screen.jpg

Hallo Forum,

hat von euch jemand ne Ahnung, wie man in VBA aus einem UserForm heraus den "Windows Orderauswahldialog" (siehe Bild) öffnen kann?

Programmierbeispiele wären super!

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Schau doch mal hier, da hat Dirk in seinem ersten Code eine Browse For Folder-Funktion drin. Das sollte doch das sein, was du willst.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten, danke für deine AW.

Doch leider finde ich mich in diesem Code nicht richtig zurecht. Gibt es da eventuell noch ne andere Methode oder kannst du mir sagen, was in dem Code von Dirk für den "Browser For Folder"-Aufruf von Bedeutung ist!?

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Hier noch eine Möglichkeit:

Code:

---

Private Sub folder()
    Dim oShell As Object
'    Dim oFolder As Object
   
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
   
    If Not oFolder Is Nothing Then
        TextBox1.Value = oFolder.Self.Path 'Texbox1 bekommt den Pfad zugewiesen.
    End If
End Sub

---

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Carsten für deine AW.
Sorry das ich mich nicht mehr darauf gemeldet habe, aber ich hab's dann doch noch nach dem Beispiel im Link hinbekommen.
Allerdings gefällt mir das Beispiel aus deinem zweiten Thread etwas besser, weil dafür ein wesendlich geringerer Programmcode notwendig ist. Bei diesem Beispiel meldet VB jedoch, in der Zeiler "TextBox1.Value = oFolder.Self.Path", "Objekt unterstützt diese Eigenschaft oder Methode nicht". Kannst du mir da vielleicht noch mal helfen. Ich würde es nämlich schon lieber nach diesen Beispiel programmieren.

------------------
MfG  A. Einstein       

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

[Diese Nachricht wurde von Einstein am 29. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Kannst du mal deine DVB hochladen, damit man sich die mal anschauen kann?! Den Fehler hab ich bis jetzt noch nicht gehabt und auch nicht provozieren können.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

kann es sein das es hier "TextBox1.Text = oFolder.Self.Path" sein müsste.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Bei mir funktioniert beides, also .text und .value.

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 29. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...Verstehe ich nicht? Bei mir klappt das nicht?
Ich hab's auch schon mit .text versucht, geht aber auch ni? 

...Hat eventuell noch jemand ne Idee, wie man das mit relativ wenig Code hin bekommt?

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

testdialog.dvb.txt

Hi,

Anbei eine kleine Test-.DVB mit dem Dialog und der Rückgabe. Bitte füll auch mal deine Sysinfo aus.

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 29. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Masse.txt

Hier ist meine dvb. Es dreht sich vor allem um das Formular "frm_Installation".

PS: Deine dvb konnt ich in acad/VBA nicht laden. Keine Ahnung warum. ...Ich nutzt acad2002

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Und ich kann deine nichgt mit 2008 öffnen. Ich probiers morgen nochmal mit der 2006er Version.
Kannst du denn den Rückgabewert von oFolder.Self.Path per Messagebox ausgeben?!

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Im 2006er bekomme ich die gleiche Meldung beim laden deiner .DVB: "... konnte nicht entfernt werden".

Seltsam, seltsam?!

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP