array to range, range to array
Andi
Opa Helmut auf dem Fahrrad:
For i = 1 To UBound(arr)
Cells(1, i) = arr(i)
Next 'i
Raumschiff Enterprise
Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt worden ist, quittiert VB dies mit der Fehlermeldung '1009'.
Warum kommt diese Fehlermeldung nicht schon ab 255 Zeichen?
Methode
arr = Range
Keine Probleme, bei Zeichenanzahl größer gleich 1000
Range = arr
Stellt ein Problem dar, bei Zeichenanzahl größer gleich 1000
Falsche Initiierung der Objekte kann man ausschließen.
Anstelle
sh.Range(sh.Cells(13, 1), sh.Cells(EFZVUIS(sh, 1) - 1, 12)) = arrMaster()
muß ich die Methode
For i = 1 To UBound(arrMaster)
For n = 1 To UBound(arrMaster(), 2)
sh.Cells(i + 12, n) = arrMaster(i, n)
Next
Next
anwenden. Warum ist das so? Danke.
Gruß Andi