Pfad aus Tabellenblatt & Zelle
19.07.2020 17:52:25
Eberhard
Ich habe mir einen Code (siehe unten) zusammengebastelt. Dieser funktioniert soweit auch. Aber wechsle ich das Tabellenblatt und möchte den Code via Button ausführen, kommt immer die Meldung "Ordner vorhanden" obwohl der Ordner gar nicht existiert .Was habe ich vergessen oder falsch gemacht?
PS. Im Tabellenblatt12 in der Zelle "D9" steht "C:\" & und in der Zelle "E9" steht zum Beispiel "Test".
Besten Dank für Eure Hilfe. Gruss Daniel
Sub Test()
Dim Pfad
Pfad = Tabelle12.Range("D9") & Range("E9").Value
If Dir(Pfad, vbDirectory) "" Then
MsgBox "Ordner vorhanden"
Else
UserForm_Pfad_suchen.Show
End If
End Sub