Map kiezen en gekozen map opslaan

[Gert Bouwmeeste]

Goedemorgen.

Ik heb een stukje macro wat ervoor moet zorgen dat ik een bepaalde outputmap kan kiezen in een dialoogscherm.

Sub KiesOutputMap()

Dim sFolder As String
    ' Open the select folder prompt
    With Application.FileDialog(msoFileDialogFolderPicker)
       [COLOR="#FF0000"] .Title "Kies een map voor de output .."[/COLOR]
        .ButtonName = "Selecteer .."
        .InitialFileName = Left$(Sheets("Tabel Lessen en Leiding").Range("H13").Value, Len(Sheets("Tabel Lessen en Leiding").Range("H13").Value) - 1)
        
        If .Show = -1 Then ' if OK is pressed
            sFolder = .SelectedItems(1) & "\"
        End If
    End With
    
    'Schrijf de gekozen map weg voor gebruik volgende keer ..
    Sheets("Tabel Lessen en Leiding").Range("H13").Value = sFolder

End Sub

De rood gemarkeerde regel geeft een foutmelding:
"Compileerfout: ongeldig gebruik van een eigenschap."

Ik zoek me suf. Wat doe ik fout?

 

[loek010]

Kijk eens of dit beter werkt :

Sub KiesOutputMap()
    Dim sFolder As FileDialog
    Dim Fname As String
    On Error GoTo errorhandler
    Set sFolder = Application.FileDialog(msoFileDialogFolderPicker)
    sFolder.AllowMultiSelect = False
    sFolder.Title = "Selecteer een folder en klik op Ok"
    sFolder.Show
    Fname = sFolder.SelectedItems(1)
    With
    Sheets("Tabel Lessen en Leiding").Range("H13").Value = Fname 
    End With  
    Set sFolder = Nothing
    Exit Sub
errorhandler:
End Sub

 

[Gert Bouwmeeste]

Ik heb t al gevonden ... mooi suf

.Title "Kies een map voor de output .."

moet zijn
.Title ="Kies een map voor de output .."


Tsja ..

#simpel
#wasnogvroeg

Willem, bedankt!