[gelöst]Anfänger-Problem mit Array-Bildung
Verfasst: Mi, 15.01.2020 20:54
Ich habe eine Tabelle mit dem Namen Material. Dort gibt es folgende Spalten Nr., Bezeichnung,Material-Nr und Stärke
Die Anzahl der Zeilen hängt von der Anzahl der angelegten Materialien ab. Es können hier bis zu 150 Zeilen oder mehr belegt sein.
Jetzt möchte ich ein Array mit den Spalten B und E erstellen. Dies habe ich auch zustande bekommen.
Code: Alles auswählen
Option Explicit
Sub ErstellungArray
Dim ocell as Object
Dim vz as integer : vz=3
Dim bz as integer : bz=10
Dim oBlatt as Object
Dim A_Daten2 as Object
Dim i as Integer
Dim tmp
oBlatt= ThisComponent.Sheets.getByName("Material")
A_Daten2= oBlatt.getCellRangeByPosition(1,vz,1,bz).getDataArray ' ' Aus dem aktiven Blatt alle Datensätze in der 1.Spalte in das Array A_Daten_2 aufnehmen
oBlatt.getCellRangeByPosition(10,vz,10,bz).setDataArray(A_Daten2) ' Das Array "A_Daten2" in dem aktiven Blatt in die Spalte "K" einfügen
A_Daten2= oBlatt.getCellRangeByPosition(4,vz,4,bz).getDataArray ' Aus dem aktiven Blatt alle Datensätze in der 4.Spalte in das Array A_Daten_2 aufnehmen
oBlatt.getCellRangeByPosition(11,vz,11,bz).setDataArray(A_Daten2) ' Das Array "A_Daten2" in dem aktiven Blatt in die Spalte "L" einfügen
A_Daten2 = oBlatt.getCellRangeByPosition(10,vz,11,bz).GetDataArray ' Aus dem aktiven Blatt alle Datensätze in den Spalten "k" bis "L" in das Array A_Daten_2 aufnehmen
For i = 0 To UBOUND(A_Daten2) ' Die Schleife solange durchlaufen solange Datensätze vohanden sind
tmp = A_Daten2(i) ' Den aktuellen Datensatz in der Schleife in die Variable "tmp" schreiben
tmp(1) = tmp(1) & " mm" ' Bei der Materialstärke noch die Buchstaben "mm" hinzufügen
A_Daten2(i) = tmp ' Die Variable Tmp in das Datenaaray A_Daten schreiben
Next ' Den Zähler "i" umm den Wert 1 erhöhen
ocell =oBlatt.getCellRangeByPosition(10,vz,11,bz) ' Die Object Var. "oCell" mit dem Breich des Arrays A_Daten2 belegn
oCell.clearContents(com.sun.star.sheet.CellFlags.VALUE _
+com.sun.star.sheet.CellFlags.STRING) ' Die in der Object Var. "oCell" enthaltenen Zellen von Werten und Strings leeren
End Sub
Ich habe schon einige Stunden versucht das zu lösen, aber bin leider zu keinem Ergebnis gekommen.
Für Euch ist das sicher ein klacks. Ich würde mich freuen von euch einen Weg aufgezeigt zu bekommen. Ich wünsche Euch noch einen schönen Tag.
Gruss Dirk