mein bisheriger Code war so:
AA(0) = "Dateiname1"
AA(1) = "Dateiname2"
An(0) = "\*" & AA(0) & "*"
An(1) = "\*" & AA(1) & "*"
DP1 = Dir(TWBPfad & An(0))
DP2 = Dir(TWBPfad & An(1))
DA = Array(DP1, DP2)
Nun möchte ich die Dateinamen nicht immer im Code verändern und habe diesen Code mit Hilfsspalte geschrieben:For Each c In Range("C2:C3")
c.Offset(0, 1).Value = "\*" & c.Value & "*"
Next c
Nun versuche ich einen Code zu schreiben, ohne eine Hilfsspalte, leider funktioniert dieser nicht:aa = Range("C2:C3").Cells.Value
For i = 1 To 2
An(i) = "\*" & aa(i, 1) & "*"
Next i
Könnt ihr mir helfen?