OpenOffice.info

Hallo Stephan,
vielen Dank für die umfangreiche Erklärung und das du dir die Zeit dafür genommen hast. Hat mir sehr weiter geholfen.

MfG
Nopsi

myData = ThisCopmponent.Sheets(0).getCellRangeByName("A1:C3").getDataArray()

Dim myData(2)
myData(0) = Array(1,1,1)
myData(1) = Array(1,1,1)
myData(2) = Array(1,1,1)

myData = ThisCopmponent.Sheets(0).getCellRangeByName("A1:C3").getDataArray()

Msgbox myData (0) (1)

Msgbox myData (0) (0)

.getDataArray() liefert immer ein Array mit den Daten des entsprechenden Bereichs in der Form das ein Array der Form (0,n) (eine Spalte und n-Zeilen) entsteht das in jeder Zelle die Werte eine Zeile des Bereiches als Array enthält.

Beispiel:

Wenn die Zellen A1:C3 alle den Wert 1 enthalten und ich sie mit .getDataArray() lese wie folgt:

[code]myData = ThisCopmponent.Sheets(0).getCellRangeByName("A1:C3").getDataArray()[/code]

dann entspricht der Inhalt von myData (vergleichweise) dem hier:

[code]Dim myData(2)
myData(0) = Array(1,1,1)
myData(1) = Array(1,1,1)
myData(2) = Array(1,1,1)[/code]

hat man:
[code]myData = ThisCopmponent.Sheets(0).getCellRangeByName("A1:C3").getDataArray()[/code]

und will auf den Wert zugreifen der aus B1 kommt, so ist das:

[code]Msgbox myData (0) (1)[/code]

oder für A1:

[code]Msgbox myData (0) (0)[/code]

d.h. die Zahl in der ersten (linke) KLammer nimmt normal Bezug auf myData und die Zahl in der zweiten Klammer auf das Array in der Zelle von myData, die durch die erste Klammer bestimmt ist

Vielleicht ist die folgende Abbildung leichter zu verstehen:


[attachment=0]Array_in_Array.gif[/attachment]




Gruß
Stephan

Hallo Stephan
das verstehe ich nicht ganz. Also mydata ist als Variant initialisiert und wird dann zu einen string. Wenn ich einen beobachter auf mydata ansetzte zeigt er ganz normal die werte des arrays an die ich dann mit mydata(b) bzw mydata(0) versuche anzusprechen. Jetzt verstehe ich nicht ganz warum ich nachdem ich das entsprechende feld im array mit mydata(b) bzw mydata(0) angegeben habe nochmal "(0)" angeben muss?

Ok. Als ich gerade den screenshot gemacht habe, habe ich gesehen das da nochmal "(0)" steht. Aber warum?
Bitte aufklären.

MfG Nopsi

Do While mydata(c) <> ""

Do While mydata(c) (0) <> ""

x =  mydata(c) 
Do While x(0) <> ""

[quote]Warum bekomme ich diesen Fehler?[/quote]

Die konkrete 'verbale' Fehlermeldung ist etwas irreführend, denn da ist eigentlich keine Objektvariable.

Der Fehler ist das mydata(c) keinen (Einzel-)Wert enthält, sondern ein Array von Werten, was formal auch gilt wenn es nur um [u]eine [/u]Spalte geht.

Statt:

[code]Do While mydata(c) <> ""[/code]

müsste dort stehen:

[code]Do While mydata(c) (0) <> ""[/code]

oder:

[code]x = mydata(c)
Do While x(0) <> ""[/code]


GRuß
Stephan

 
mydata = ThisComponent.Sheets.getByName(sht).getCellRangeByPosition(0,oFound.RangeAddresses(0).StartRow,0,oFound.RangeAddresses(0).Endrow).getDataArray()
    dim i as Integer
    dim c as Integer
    dim datumrudi as variant
    dim b as Integer
    i=0
    c=1
    b=0
    datumrudi(b) = mydata(b)
    Do While mydata(c) <> ""
        if mydata(i) <> mydata(c) then
         b=b+1
         datumrudi(b)= mydata(c)
         c=c+1
         i=i+1
        endif
    Loop
    

Do While mydata(c) <> ""

Hallo zusammen
Im folgenden Code bekomme ich immer einen Laufzeitfehler.

[code]
mydata = ThisComponent.Sheets.getByName(sht).getCellRangeByPosition(0,oFound.RangeAddresses(0).StartRow,0,oFound.RangeAddresses(0).Endrow).getDataArray()
dim i as Integer
dim c as Integer
dim datumrudi as variant
dim b as Integer
i=0
c=1
b=0
datumrudi(b) = mydata(b)
Do While mydata(c) <> ""
if mydata(i) <> mydata(c) then
b=b+1
datumrudi(b)= mydata(c)
c=c+1
i=i+1
endif
Loop
[/code]

und zwar speziell in dieser Zeile

[code]
Do While mydata(c) <> ""
[/code]

Wenn ich allerdings die Werte von mydata anzeigen lasse ist dies nicht leer. Warum bekomme ich diesen Fehler? Kann mir da bitte jemand weiter helfen?

MfG
Nopsi