ich werte per Makro mehrere Tausend Werte aus, die werden in ein Array geschrieben.
In A2 kommt das Array auf dem Tabellenblatt "Übersicht"
also .Cells(2, 1).Resize(UBound(arrErgebnis, 1), 6) = arrErgebnis
das sind dann zwischen 150 Zeilen und 600 Zeilen auf 6 Spalten
Ich würde es gerne so machen dass 8 oder 10 Datensätze in die Tabelle kommen und die nächsten 10 sollen dann 2 Zeilen unter die ersten 10, ich komm aber einfach auf keine schleife die mir das macht, kennt ihr eine passende?
Es sollen bis zu 50 Datensätze auf das Tabellenblatt "Übersicht" kommen können.
Hier nochmal Code:
With wksErgebnis
.Cells(1, 1).Value = "Nr. Block"
.Cells(1, 2).Value = "Minimum"
.Cells(1, 3).Value = "Mittelwert"
.Cells(1, 4).Value = "StAbw"
.Cells(1, 5).Value = "Zeile 1"
.Cells(1, 6).Value = "Zeile 2"
.Columns(2).NumberFormat = wksData.Cells(2, 1).NumberFormat
.Columns(3).NumberFormat = "#,##0.0;-#,##0.0;0.0;@"
.Columns(4).NumberFormat = "#,##0.0;-#,##0.0;0.0;@"
.Cells(2, 1).Resize(UBound(arrErgebnis, 1), 6) = arrErgebnis
.Columns.AutoFit
End With
Ich hatte es mit ein paar verschiedenen If Schleifen versucht aber die haben nicht das gewünschte erreicht, meine Do Until und For Schleifen gingen gnadenlos daneben