Macht so erstmal keinen Sinn.
Wenn dann
Type peter
wurst As Variant
End Type
und
Sub fillchart()
ReDim honk(0 To 1) As peter
honk(0).wurst = Range("A1:A5").Value
honk(1).wurst = Range("A6:A10").Value
End Sub
Wenn du auf den Datentyp Double bestehen willst, dann so:
Type peter
wurst() As Double
End Type
Sub fillchart()
ReDim honk(0 To 1) As peter
Dim i As Long
With Range("A1:A5")
ReDim honk(0).wurst(0 To .Cells.Count - 1)
For i = 0 To .Cells.Count - 1
honk(0).wurst(i) = CDbl(.Cells(i + 1).Value)
Next
End With
With Range("A6:A10")
ReDim honk(1).wurst(0 To .Cells.Count - 1)
For i = 0 To .Cells.Count - 1
honk(1).wurst(i) = CDbl(.Cells(i + 1).Value)
Next
End With
End Sub
In beiden Fällen ist wurst aber ein Array und nicht wie bei dir ein einzelner Wert.
Zu beachten ist auch noch ob es ein 1D-Array ist, oder ein 2D-Array liefert, mit x Zeilen und nur 1 Spalte (der Fall oben mit Variant liefert z.B. so ein Array).
|