Array

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