Sub DatenfeldDreidimensional()
Hallo zusammen,
kann mir da jemand bitte helfen. Ich versuche ein drei dimensionales Feld zu erzeugen, bekomme aber Fehler unter Cells.
Ich bin VBA Anfänger. Danke
Grüße Damir
Dim T(1 To 7, 1 To 3, 1 To 31) As Integer ' mit drei unterschiedlichen Temperaturwerten, an drei verschiedenen Orten.
Dim i As Integer, d As Integer, k As Single
'Range("A1:C10").Clear
ThisWorkbook.Worksheets("Tabelle9").Activate
Randomize
For i = 1 To 7
For d = 1 To 3
For k = 1 To 31
T(i, d, k) = Rnd() * 10 + 35
Cells(i, d, k).Value = T(i, d, k)
Next k
Next d
Next i
End Sub |