OpenOffice.info

Hi Friedhelm,

[quote="Hömmelmann"]jetzt hab' ich es begriffen und es funktioniert auch.[/quote]

Was hast Du jetzt begriffen?

[quote="komma4"]Ohne XRay kommst Du nicht weit, Friedhelm.[/quote]

oder[quote="turtle47"]mit
Code: Alles auswählen
getDataArray()holt man sich automatisch ein mehrdimensionales Array,
auch wenn man nur eine Spalte einliest!
Dieses muss man zuerst auf die erste Dimension (0) "runterschrauben".[/quote]

Jürgen

Hallo,
jetzt hab' ich es begriffen und es funktioniert auch.

Danke,
Friedhelm

Ohne [url=http://ooomacros.org/dev.php#101416]XRay[/url] kommst Du nicht weit, Friedhelm.

getDataArray()

Sub Array_auslesen()
	x  = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:A4").getDataArray()
	for i = 0 to UBound(x)
	Daten = x(i)(0)' 0 = erste Dimension
	msgbox daten 
	next i
End Sub

Hallo Friedhelm,

mit[code]getDataArray()[/code]holt man sich automatisch ein mehrdimensionales Array,
auch wenn man nur eine Spalte einliest!
Dieses muss man zuerst auf die erste Dimension (0) "runterschrauben".

[code]Sub Array_auslesen()
x = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:A4").getDataArray()
for i = 0 to UBound(x)
Daten = x(i)(0)' 0 = erste Dimension
msgbox daten
next i
End Sub[/code]

Das Thema wurde [url=http://de.openoffice.info/viewtopic.php?f=18&t=19214]hier[/url] schon einmal behandelt.

Viel Erfolg.

Jürgen

Wir kommen uns langsam näher:

jetzt läufts bis "xray aInhalt( i )"
Dann meldet OO eine nicht definierte Sub- oder Function-Prozedur.
Ich muss gestehen, mir sagt xray auch nichts.


Friedhelm

Da war ein Tippfehler im Code... der sowieso nur läuft, wenn Du hast.

Arrays sind null-basiert [color=#008000]aInhalt(0)[/color] bis [color=#008000]aInhalt(3)[/color].
Sieh Dir den genannten Beispielcode an.

Danke erstmal.

So ganz ist mir allerdings noch nicht geholfen (das Brett vor meinem Kopf ist deutsche Eiche!):

Ja, ich meine mit Inhalt(4) natürlich eine Array-Variable

Bei der Ausführung deines Codes bekomme ich bei der Zeile: "For i = LBound( aInhalte ) To UBound( aInhalte )" einen Laufzeitfehler: Objektvariable nicht belegt.

Kann ich davon ausgehen, dass in deinem Code der Inhalt der Zellen A1 bis A4 dann in der Array-Variable "aInhalte(1)" bis "aInhalte(4)" gespeichert ist?


Gruß, Friedhelm

aInhalt = _
ThisComponent.Sheets().getByName( "Tabelle2" ).getCellRangeByName( "A1:A4" ).getDataArray()
For i = LBound( aInhalt ) To UBound( aInhalt )
   xray aInhalt( i ) 
Next i

Wenn Du mit [color=#008000]Inhalt(4)[/color]*** eine Arrayvariable meinst:
[code]aInhalt = _
ThisComponent.Sheets().getByName( "Tabelle2" ).getCellRangeByName( "A1:A4" ).getDataArray()
For i = LBound( aInhalt ) To UBound( aInhalt )
xray aInhalt( i )
Next i[/code]
[color=#008000]getDataArray()[/color] gibt ein Array von Arrays zurück!

War dies das Gesuchte, Friedhelm? Wenn ja, dann findest Du ein Beispiel für [color=#008000]get-/setDataArray()[/color] bspw. im Code meiner Extension [url=http://extensions.services.openoffice.org/project/OOoDIL]OOoDIL - DokumentInfoListe[/url]

Hilft das weiter?



[size=85]***
A1 bis A4 sind vier Zellen, eine OOo StarBasic Dimensionierung beginnt bei 0 ([i]default[/i]), also wäre DIM Inhalt(3) ausreichend[/size]

Hallo,


ich möchte einen Zellbereich (z.B. A1:A4) in eine indizierte Variable z.B. Inhalt (4) einlesen.
Ich kenne dafür natürlich die Möglichkeit, die Zellen einzeln auszulesen und in die Variable zu übertragen.
Es müsste aber doch auch eine Möglichkeit geben, den ganzen Bereich in einem Rutsch rüber zu bringen.


Danke für Antwort

Friedhelm