Matrix in 3 Spalten konvertieren

Guten Abend an Alle,
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

Eventuell hat jemand eine Idee.
Vielen Dank und viele Grüße,
Frank

Hallo Frank,
Es kommt danach darauf an, wie Du die Daten auswerten möchtest.
Was man noch probieren könnte, wäre über Power Query zu entpivotieren.
_ die gsamte Matrix als aktive Tabelle einschalten "Einfügen", "Tabelle", hat Überschrift: ja. (ich gehe dabei davon aus, dass kein "x" doppelt vorkommt)
_ Menü "Daten", "Aus Tabelle"
_ in Power Query Editor, erste Spalte markieren, im Menü "Transformieren", "entpivotieren", "andere Spalten entpivotieren"
_ Menü "Datei", "Schliessen und laden in ...", nur Verbindung und dem Datenmodell hinzufügen.
Dann kann man u.a. bei Pivot den Datenmodell verwenden, oder bei einem Listobjekt (aktive Tabelle), den SQL auf dem Datenbestand so beschränken, dass nicht alle Daten rüberkommen.
Ansonsten, ja, direkt in einer Datei speichern. Es sieht da so aus (Anbindung von MS Scripting Runtime nicht vergessen):


Sub DatenZuDatei_exportieren()
'mit Anbindung ("Extras", "Verweise...") an "Microsoft Scripting Runtime"
Dim fso As New FileSystemObject
Dim Datei As TextStream
Dim R As Long 'Row
Dim C As Long 'Column
Const cPfad = "C:\temp\HerberForum\Export.csv"
Set Datei = fso.OpenTextFile(cPfad, ForWriting, True)
With Worksheets("Matrixdaten")
'Überschrift (Zeile 3) exportieren
For C = 2 To 5710 'Spalten, x
For R = 2 To 3058 'Zeilen, y
Datei.WriteLine .Cells(1, C) & ";" & .Cells(R, 1) & ";" & .Cells(R, C)
Next
Next
End With
Datei.Close
End Sub

VG
Yal

Forumthread: Matrix in 3 Spalten konvertieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial