Dim Angebotspfad(16), ziel As String
Angebotspfad = Array("y:\Angebote\@01\", "y:\Angebote\@02\", "y:\Angebote\@03\", _
"y:\Angebote\@04\", "y:\Angebote\@05\", "y:\Angebote\@07\", _
"y:\Angebote\@08\", "y:\Angebote\@09\", "y:\Angebote\@10\", _
"y:\Angebote\@14\", "y:\Angebote\@15\", "y:\Angebote\@16\")
ziel= activecell.value
If Dir(Angebotspfad & ziel, vbDirectory) <> "" Then ...
Wieso erhalte ich immer die Meldung: Typen unveträglich ???
Danke
Nico