Ich moechte mehrere Felder ausgeben.
Ich habe sie wie folgt dimensioniert.
Dim Kraftausgabe_gesamt(1 To 250, 1 To 12) As Variant
Dim Kraftausgabe_x(1 To 250, 1 To 12) As Variant
Dim Kraftausgabe_y(1 To 250, 1 To 12) As Variant
Dim Kraftausgabe_z(1 To 250, 1 To 12) As Variant
Bei der Zuordnung ueber
wb.Sheets(Test_Ausgabe).Range("d20:d269") = Kraftausgabe_gesamt
wb.Sheets(Test_Ausgabe).Range("e20:e269") = Kraftausgabe_x
wb.Sheets(Test_Ausgabe).Range("f20:f269") = Kraftausgabe_y
wb.Sheets(Test_Ausgabe).Range("g20:g269") = Kraftausgabe_z
wb.Sheets(Test_Ausgabe).Range("h20:h269") = Kraftausgabe_gesamt
wb.Sheets(Test_Ausgabe).Range("i20:i269") = Kraftausgabe_x
wb.Sheets(Test_Ausgabe).Range("j20:j269") = Kraftausgabe_y
wb.Sheets(Test_Ausgabe).Range("k20:k269") = Kraftausgabe_z
usw.
erscheinen jeweils nur die Werte, die in der 1. Spalte stehen.
Ich moechte aber bei den ersten vier Zuordnungen in die Tabelle die erste Spalte, dann die zweite usw.
Dafuer moechte ich aber keine 48 Felder definieren, da die Werte ja schon vorhanden sind.
Gibt es eine elegantere Methode so etwas zu loesen?