Hallo Leute,
kurze schnelle Frage, ich möchte bevor der jeweilige gesuchte Ordner geöffnet wird eine Msgbox mit einer Ja/Nein Abfrage (siehe Kommentar).
Jedoch funktioniert der ganze Spaß nicht wie geplant, da =yes eine neue Abfrage benötigt und das dann irgendwie nicht hinhaut..
Habt ihr eine Realisierungsidee?
kurze schnelle Frage, ich möchte bevor der jeweilige gesuchte Ordner geöffnet wird eine Msgbox mit einer Ja/Nein Abfrage (siehe Kommentar).
Jedoch funktioniert der ganze Spaß nicht wie geplant, da =yes eine neue Abfrage benötigt und das dann irgendwie nicht hinhaut..
Habt ihr eine Realisierungsidee?
Quellcode
- Option Explicit
- Sub suche_datei()
- Dim bFolderExists As Boolean
- bFolderExists = oFSO.FolderExists("U:\Excel\KW_Wochenberichte\" & Userform1.TextBox3.Text)
- If bFolderExists = True Then
- 'MsgBox ("Sie haben Ordner: " & Userform1.TextBox3.Text & " gewählt, soll dieser geöffnet werden?",vbyesno) = yes
- Application.Dialogs(xlDialogOpen).Show "U:\Excel\KW_Wochenberichte\" & Userform1.TextBox3.Text
- Else: MsgBox ("Ordner kann weder gefunden noch geöffnet werden, bitte überprüfen Sie ihre Eingabe.")
- End If
- End Sub