dynamisches Anlegen von Variablen

[mkroes]

Hallo,

- je nach Messdaten kopiere ich im Report das erste Blatt und lege für jedes Diagramm auf dem kopierten Blatt ein Objekt an Set my3D2Blatt1 = Report.Sheets("Gesamt").Objects("3DAxis2")

- die vorhandenen Diagramme (3Stk) werden teilweise mit weiteren Kurven befüllt oder ausgetauscht

Um jetzt variabel in der Anzahl der Blätter zu werden, möchte ich das ganze dynamisch machen. Sprich statt 3 auch mal 10 oder 20.

Dazu muss ich ja dynamisch Objekte anlegen. Hier komm ich mit SET oder eine Schleife in der SET angewendet wird nicht weiter und benötige einen Codeschnippsel.

Vielen Dank

R.Keller

[AndreasK]

If you are just asking for dynamic vbs arrays. They are done like this

Option Explicit

dim objs : objs = Array

call AppendObj(objs,data.Root)
call AppendObj(objs,data.Root)
call AppendObj(objs,data.Root)
call AppendObj(objs,data.Root)

MsgBox "Contains " & Ubound(objs) + 1 & " elements"

dim obj : for each obj in objs
  MsgBox obj.name
Next


sub AppendObj(ByRef objs, ByRef newObj)
  ReDim Preserve objs(Ubound(objs) + 1)
  set objs(Ubound(objs)) = newObj
end sub