Problem mit Array
22.03.2009 14:07:35
Lorenz
Ich brauche mal wieder eure Hilfe. Ich kriegs einfach nicht hin. Es soll die benannte Formel "FamVorName" in den Blättern 1. bis 18. in jeweils A1:A21 eingetragen werden. Ich wählte deshalb Array statt Schleife, da in der Schleife die Bätter einzeln gewählt werden und Array`s angeblich schneller verarbeitet werden.
Sub ausfüllen()
Dim arrSht As Variant, arrRng As Variant
arrSht = Array("1.", "2.", "3.", "4.", "5.", "6.", "7.", "8.", "9.", "10.", "11.", "12.", " _
_
_
13.", "14.", "15.", "16.", "17.", "18.")
arrRange = Array("A6", "A7", "A8", "A9", "A10", "A11", "A12", "A13", "A14", "A15", "A16", " _
_
_
A17", "A18", "A19", "A20", "A21")
Sheets(arrSht).Range(arrRng).FormulaLocal = Range("FamVorName")
End Sub
Hat jemand nen Tipp?
Danke Lorenz