Clever-Excel-Forum

Hallo und Guten Tag

Ich versuche seit Stunden eine Abfrage zu realisieren ob der Ordner vorhanden ist oder nicht.
Leider ohne Erforg, ich bitte um Eure Hilfe.
Der Ordnerpfad steht in einer Zelle in der Aktiven Arbeitsmappe.

Code:
Dim Pfadname As String

Pfadname = Workbooks("Personal.xlsb").Sheets("Hilfstabelle").Range("O1").Value

If Dir(Pfadname, vbDirectory) = Pfadname Then

Else

        MsgBox ("Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden")

        Exit Sub

    End If

In der Zelle O1 steht der Pfad U:\Dokumente\Stephan\Ablage\

Danke schon mal im Voraus

Gruß Peter

Hallo

mach es so...

Code:
    If Dir(Pfadname, vbDirectory) <> "" Then

    Else

        MsgBox ("Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden")

        Exit Sub

    End If

LG UweD

Hallo Peter,

teste es mal so:

Dim Pfadname As String

Pfadname = Workbooks("Personal.xlsb").Sheets("Hilfstabelle").Range("O1").Value

If Right(Pfadname, 1) = "\" Then

  Pfadname = Left(Pfadname, Len(Pfadname) - 1)

End If

If Dir(Pfadname, vbDirectory) = "" Then

  MsgBox "Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden"

End If

Gruß Uwe

Vielen Dank funktioniert Prima

Gruß Peter

Dankeschön, beide Antworten funktionieren um kommen in meine Sammlung

Gruß Peter

stonemaus

UweD

Kuwer

stonemaus