Matrix in 3 Spalten konvertieren
15.03.2022 20:17:49
Frank
ich habe Daten vorliegen, welche 5710 Spalten lang und 3058 Zeilen beinhalten. Die erste Zeile beinhaltet alle x-Koordinaten. Die erste Spalte beinhaltet alle y-Koordinaten. Die restliche Matrix, sprich 5709 * 3057 entspricht den z-Koordinaten. Im Prinzip ein riesiges 3D-Feld. Ich möchte diese Daten gern in drei Spalten umschreiben, so dass ich auf einem neuen Datenblatt in Spalte 1 die x-Koordinaten, in Spalte 2 die y-Koordinaten und in Spalte 3 die zugehörigen z-Koordinaten ausgegeben bekomme.
Soweit die Aufgabe, die an und für sich lösbar ist. Das Problem ist, dass mir die maximale Zeilenanzahl von Excel einen Strich durch die Rechnung macht, da 5709 * 3057 = 17.542.413 Zeilen ergibt und Excel leider nur 1.048.576 Zeilen zur Verfügung stellt.
Was könnte ich machen, um die Daten in der gewünschten Form zu erhalten? In eine Text Datei schreiben?
Das ist der kleine Code für das Einlesen, der dann endet, weil ich nun auf dieses Problem gestoßen bin.
Sub Import_Data()
Dim Array_Einlesen(1 To 3058, 1 To 5710)
Dim i As Long, j As Long
Worksheets("Matrixdaten").Select
Application.ScreenUpdating = False
'Einlesen der Matrix
For i = 1 To 3058
For j = 1 To 5710
Array_Einlesen(i, j) = Cells(i, j).Value
Next
Next
'Umwandeln der Matrix in 3 Spalten --> X, Y, Z
Worksheets("XYZ").Select
'Umwandeln in 3 Spaltenvektoren X, Y, Z
End Sub
Vielen Dank und viele Grüße,
Frank
