|
Wenn du eine Matrix hast, kannst du die ganz einfach (ohne Schleife) ins Blatt schreiben.
'B8 ist hier die linke obere Zelle des Einfügebereichs
'der Bereich wird durch Resize auf die Größe der Matrix
'angepasst, so haben die Daten dann darin platz
Worksheets("Tabelle2").Range("B8").Resize(UBound(Matrix, 1), UBound(Matrix, 2)).Value = Matrix
Hier wird davon ausgegangen das die Indizes der Matrix mit 1 beginnen (dann liefert UBound nämlich die Anzahl der Zeilen bzw. Spalten).
Wenn du Werte setzt, solltes du das auch im Quelltext deutlich machen (also Value). Auch wenn man es weglassen kann, ist es allgemein nicht ratsam dies wegzulassen (es gibt einige Szenarien in denen das einen auf den Fuss fallen kann und man dann ewig nach dem Fehler sucht).
PS: Wenn du Fehlermeldungen angezeigt bekommst, dann gib diese hier bitte mit an. Nicht jede Fehlerquelle ist direkt offensichtlich und niemand mag gerne raten, das verkompliziert nur alles unnötig.
|