Ich bekomme einen Grundfehler, wenn ich die Auswahl eines Ordners stornieren. Ich möchte nur Sub beenden, wenn ich die Abbrechen-Taste drücke.VBA - Fehler beim Abbrechen Getfolder vermeiden
Ich verwende den folgenden Code
Set recsFolder = fso.GetFolder(Functions.GetFolder("C:\"))
Function GetFolder(strPath As String) As String
Dim Fldr As FileDialog
Dim sItem As String
Set Fldr = Application.FileDialog(msoFileDialogFolderPicker)
With Fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set Fldr = Nothing
End Function
auf welcher Linie fallen Sie, wenn Sie auf debug klicken? –
in der ersten Zeile – peetman
ist, weil Sie recsFolder außer Funktion haben. Versuchen Sie es in die Funktion einzufügen und vergleichen Sie Fldr mit false? oder was auch immer es ist, wenn Sie auf Abbrechen drücken –