Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Ordnerpfad über Schaltfläche suchen und in Textfeld einfügen

Begonnen von tismo, Oktober 26, 2018, 17:14:30

⏪ vorheriges - nächstes ⏩

tismo

Hallo,

in einem meiner Formulare muss ein Ordnerpfad (Bsp. D:\Users\User\Documents\) in einem Textfeld eingetragen werden. Wie könnte ein vba aussehen, damit über eine Schaltfläche der Explorer geöffnet wir und ich bequem darüber den ensprechenden Ordner auswählen kann und dieser dann sofort in meinem Textfeld angezeigt wird?

Gruß,
Lars

daolix

ggf

With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Nz(Me.TB_Path, "")
        .Show
        If .SelectedItems.Count Then
            Me.TB_Path = .SelectedItems(1)
        Else
            Me.TB_Path = ""
        End If
    End With
voher noch nen verweis auf die Microsoft Office X.XX Library setzen oder die Zeile "With Application.FileDialog(msoFileDialogFolderPicker)" selbst eintippen dann fragt acc nach ob das gesetzt werden soll.