Hallo,
wie kann ich mein Array dynamisch füllen ( TotalCols ist eine Variable).
Bisher war es immer eine Konstante = 5 wie man im unteren Code entnehmen kann.
Kann man das mit einer Schleife umsetzen oder ist es besser mit einer If-Then Anweisung, falls TotalCols mal nur 3 sein sollte?
wie kann ich mein Array dynamisch füllen ( TotalCols ist eine Variable).
Bisher war es immer eine Konstante = 5 wie man im unteren Code entnehmen kann.
Kann man das mit einer Schleife umsetzen oder ist es besser mit einer If-Then Anweisung, falls TotalCols mal nur 3 sein sollte?
Quellcode
- Dim a As Single ' Schleife zum füllen des InDaten Array
- Dim InDaten() As Double
- ReDim InDaten(1 To TotalRows, 1 To TotalCols)
- For a = ((End1 - TotalRows) + 1) To End1 ' Datenreihen in InDaten Array füllen
- InDaten(((a - End1) + TotalRows), 1) = Feld1(a)
- Next a
- For a = ((End2 - TotalRows) + 1) To End2
- InDaten(((a - End2) + TotalRows), 2) = Feld2(a)
- Next a
- For a = ((End3 - TotalRows) + 1) To End3
- InDaten(((a - End3) + TotalRows), 3) = Feld3(a)
- Next a
- For a = ((End4 - TotalRows) + 1) To End4
- InDaten(((a - End4) + TotalRows), 4) = Feld4(a)
- Next a
- For a = ((End5 - TotalRows) + 1) To End5
- InDaten(((a - End5) + TotalRows), 5) = Feld5(a)
- Next a