Hallo,
ich gebe Werte aus einer dreidimensionalen Matrix in Excel aus. Vorher habe ich natürlich application.screenupdating auf false gesetzt. Trotzdem dauert die Ausgabe von 20.000 Zahlen satte 35 Sekunden! Kann mir jemand sagen, was ich am folgenden Code optimieren kann?
(...)
Cells.Select
Selection.ClearContents
Range("A1").Select
For Pfad = 1 To AnzahlPfade
For Jahr = 0 To AnzahlJahre
Cells(Pfad, Jahr + 1).Value = Ergebnis(1, Pfad, Jahr)
Next Jahr
Next Pfad
(...)
Anzahl Pfade = bspw. 2000, Anzahl Jahre = 10
Das Ergebnis ist als single definiert. Wichtig ist vielleicht noch zu erwähnen, dass die Berechnung dieser 20.000 Werte in VBA nur Sekundenbruchteile dauert. Es liegt wirklich nur an der Ausgabe in ein Excel-Sheet!
Danke für Eure Antworten!
Gruß, Jens