BrowseForFolder ontop
11.02.2017 12:26:51
Thomas
ich benutze folgenden Code um über einen CommandButton in einer UserForm einen Pfad auszuwählen.
Private Sub cmdOrdner_Click() 'Wahl des Pfades
Dim AppShell As Object
Dim BrowseDir As Variant
Dim j As Integer
ListBox1.Clear
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 0)
If BrowseDir Is Nothing Then Exit Sub
Folder = BrowseDir.Items().Item.Path
File = Dir(Folder & "\*.txt")
Do While File ""
ListBox1.AddItem File
File = Dir
Loop
On Error Resume Next
End Sub
Dabei öffnet sich das BrowseForFolder Fenster. Da die UserForm modeless ist ist es dem Benutzer aber noch gestattet, in Excel weiter zu arbeiten. Klickt man jetzt bei geöffnetem Browserfenster irgendwo auserhalb des Fensters verschwindet dieses in den Hintergrund. Ist es möglich, dass 1. das Fenster immer im Vordergrund ist und man erst wieder etwas anderes anklicken kann wenn der Pfad gewählt wurde oder das Fenster geschlossen wird oder
2. das Fenster sich automatisch schließt, wenn man wo anders hinklickt?
Vielen Dank schonmal
Grüße,
Thomas