Office: VBA Modul lässt sich nicht ausführen

Hallo,
Danke an die Administratoren für das neue Aufstellen eines Office Forums.
Ich hoffe und denke hier kann mir bestimmt jemand helfen.

Ich arbeite zwar schon länger mit VBA, habe mich aber bisher davor gedrückt Module zu verwenden. Das möchte ich ändern, dazu muss ich das Ganze erst einmal verstehen.

Ich habe folgenden Code zusammengebastelt:
Public Function ProjektordnerWahl(FileName1 As String, SpOrt As String) '############# Projektordner zuweisen
Dim strOrdner As String

'############### überprüfen ob der Projekt Überordner Speicherort bereits angelegt wurde
If IsNull(SpOrt) Or SpOrt = "" Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = FileName1
.Title = "Hier der Übergeordnete Projektordner auswählen"
.ButtonName = "Auswahl"
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1) <> "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then
MsgBox ("Kein Ordner gewählt!")
Else
SpOrt = strOrdner
End If
Else
End If
End Function

den Aufruf habe ich mit
ProjektordnerWahl("P:\Prüfprojekte und Bauüberwachung\" & Forms!frm_pruefen!Auftragsjahr, Forms!frm_pruefen!Speicherort_Name)
versucht.

Jedoch kommt da dann der Fehler:
Erwartet =

??? warum ein =? Ich finde nicht wo und zu welchem Codeschnipsel das gehört???

Bin ich so falsch mit meinem Modul?
Vielleicht kann mir hier jemand helfen?

Liebe Grüße
Rebecca

 

Hallo Rebecca, zur Fehlersuche solltest du lernen zu debuggen:

Debugging im VBA-Editor.

 

Hallo Rebecca,

wenn Du nur prüfen willst, ob es ein Verzeichnis gibt, geht das recht einfach mit der folgenden Funktion:

Code:

Public Function verzda(suchverz as string) As Boolean 'pruefen, ob ein Verzeichnis vorhanden ist

 If Dir(suchverz, vbDirectory) <> "" Then
    verzda = True
 Else
    verzda = False
 End If

End Function

Aufruf aus anderer Prozedur (oder wo auch immer...)

Code:

If verzda (MeinSuchpfad) = true then
  msgbox "vorhanden"
else
  msgbox "nicht vorhanden"
end if