Array elemente bearbeiten ohne Hilfsspalte?
12.02.2019 10:49:25
Alex
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)
For Each c In Range("C2:C3")
c.Offset(0, 1).Value = "\*" & c.Value & "*"
Next c
aa = Range("C2:C3").Cells.Value
For i = 1 To 2
An(i) = "\*" & aa(i, 1) & "*"
Next i