ich habe zwischenzeitlich etwas herumgebastelt und habe herausgefunden, wie ich die Daten richtig abfrage.
Aber wie übergebe ich die Daten richtig an das Ausgabe-Array, damit dieses mittels setDataArray an eine Calc-Tabelle übergeben werden kann?
Das Daten-Array (oData), in das die Werte eingelesen werden, sieht nach getDataArray so aus: oData(0)(0), oData(0)(1) ...
Ich denke, dass das Ausgabe-Array das gleiche Format haben muss, aber wie bekomme ich das hin? -> habe ein Brett vorm Kopf!!!
Code: Alles auswählen
Sub schnell()
dim odata(5) ' Das Array wird nur einfach dimensioniert und zwar nach Anzahl der Zeilen.
'Durch den Befehl getDataArray bilden sich die Unterarrays mit den Angaben zur Spalte automatisch
dim Ausgabe(6) 'wie bilde ich hier Unterarrays?? Muss ich diese bereits hier dimensionieren? dim Ausgabe(6)(1) funktioniert nicht
for x=0 to 1
for y=0 to 6 'ansonsten erscheint der Fehler "Objektvariable nicht belegt"
'Ausgabe(x,y) ?????????????????? = ?????????? wie wäre es richtig, damit Ausgabe nachher Ausgabe (y)(x)="" ist?
next
next
oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:B5")
oData()= oRange.getDataArray()
Zwischenwert = oData(1) ' Hier wird die Zeile der entsprechenden abzufragenden Zelle angegeben
Wert=Zwischenwert(0) ' Hier wird die Spalte der abzufragenden Zelle angegeben
Ergebnis=Wert/2
'Ausgabe(0,0)=Array(Ergebnis) ?????????????????? wie wäre es richtig, damit Ergebnis in Ausgabe(0)(0) geschrieben wird?
Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(0,1)=Array(Ergebnis2) ??????????
Zwischenwert = oData(2)
Wert=Zwischenwert(0)
Ergebnis=Wert/2
'Ausgabe(1,0)=Array(Ergebnis) ??????????
Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(1,1)=Array(Ergebnis2) ???????????
Zwischenwert = oData(3)
Wert=Zwischenwert(0)
Ergebnis=Wert/2
'Ausgabe(2,0)=Array(Ergebnis) ???????????????
Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(2,1)=Array(Ergebnis2) ????????????
oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C1:D7")
oRange.setDataArray(Ausgabe())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt
End Sub
Vielen Dank und viele Grüße
Lupo