ich habe eine "DO CASE" Anweisung und möchte für jeden Fall prüfen ob ein bestimmtes Verzeichnis existiert.
Sub ORdnerDa()
Dim test As string
wert = ActiveCell.Value
test = VerzDa("D:\Eigene Dateien\" & wert & "\)
End Sub
Function VerzDa(str As String)
On Error GoTo fehler
ChDir (str)
VerzDa = True
Exit Function
fehler:
MSgbox "BLA BLA BLA"
End Function
Ich bin totaler Anfänger ... Ich muss in jedem CASE zunächst prüfen ob das Verzeichnis existiert, hierzu muss ich also als erstes die Funktion "VerzDa" aufrufen. Falls das Verzeichnis schon existiert soll eine Msgbox eingeblendet werden, falls nicht soll im ELSE Zweig weitergemacht werden.
Wie setzte ich das um ???
Danke
Nico