Feldzuordnung funktioniert nicht

[snb]

Ich möchte vorschlagen:

http://www.amazon.de/Excel-VBA-f%C3%BCr-...3527709282

[schauan]

Hallöchen,

es würde zumindest in zwei Schritten gehen.
Kopiere die Konstanten an andere Stelle und übernimm diesen Bereich dann in das Array.

Range("A1:A10").SpecialCells(xlCellTypeConstants).Copy [d1]
arr1 = Columns(4).SpecialCells(xlCellTypeConstants).Value