wenn ich einen Array(Double-Zahlenwerte)in einem Namen speichern möchte, gibts da eine Obergrenze für die Länge des Array? Bei Texten gibts ja da wohl eine
Beschränkung auf 255 Zeichen.
mfg Werner
Option Explicit
Sub Beispiel_schreiben()
Const PZ As Double = 3.14159
Dim arr(1 To 200) As Double, i As Long
For i = 1 To 200
arr(i) = Round(i * PZ, 4)
Next
Names.Add Name:="PZArr", RefersTo:=arr
End Sub
Sub Beispiel_lesen()
Dim arr, z As Long
arr = [PZarr]
For z = LBound(arr) To UBound(arr)
Cells(z, 1) = arr(z)
Cells(z, 2).FormulaR1C1 = "=LEN(RC[-1])"
Next
[c1].FormulaR1C1 = "=SUM(C[-1])"
End Sub