OpenOffice.info

[quote="F3K Total"]dass ihr Zeilen und Spalten vertauscht habt[/quote]
Ups - wusste doch, dass zuerst Zeilen kommen, dann Spalten :D

Werde das im Code oben ändern, damit nicht einer beim Nachlesen reinfällt.

Danke!

Hallo,
habe eben auch versucht die Lösung zu finden, war erfolreich und kann Euch mitteilen, dass ihr Zeilen und Spalten vertauscht habt.
Versucht mal den Bereich "A1:F3"

Gruß R

Hllo Winfried,
vielen Dank für Deine Hilfe.
Gruß Markus

   Print "Bereich hat " & UBound( adat() ) + 1 & " Zeilen"
   
   aZeile = adat(0)
   Print "Bereich hat " & UBound( aZeile() ) + 1 & " Spalten"

[code] Print "Bereich hat " & UBound( adat() ) + 1 & " Zeilen"

aZeile = adat(0)
Print "Bereich hat " & UBound( aZeile() ) + 1 & " Spalten"[/code]


Zum [color=#008000].getDataArray()[/color] und [color=#008000].setDataArray()[/color] habe ich (ein) Beispiel(e) hier im Forum (=>Googlesuche: [color=#0040FF]getDataArray komma4 site:de.openoffice.info[/color]) - oder auch in meiner Extension [url=http://extensions.services.openoffice.org/en/project/OOoDIL]OOoDIL[/url]

Ansonsten empfehle ich Dir -wie allen Anfängern-

[list][*][url=http://www.pitonyak.org/oo.php]Andrews Makro-Dokument[/url]
einen Objektinspektor, wie [*][url=http://bernard.marcelly.perso.sfr.fr/index2.html]XRAY[/url]
oder [*][url=http://extensions.services.openoffice.org/project/MRI]MRI[/url][/list]

Sub Test
    ArrayDimension("M1", "A1:C3")
End Sub

Sub ArrayDimension (strSheetName As String, strBereich As String)

Dim oDoc As Object
Dim oBereich As Object
Dim aDat As Variant

   oDoc = ThisComponent
   oBereich = oDoc.Sheets(strSheetName).getCellRangeByName(strBereich)
   aDat  = oBereich.getDataArray()
   
   Print "Anzahl Zeilen:= " +  UBound(aDat,1)
   Print "Anzahl Spalten:= " +  UBound(aDat,2)   

End Sub

Liebe Leute,
ich brauche noch mal eine kleine Hilfestellung. Ich versuche die Anzahl der Zeilen und Spalten eines zweidimensionalen Arrays heraus zu bekommen, um die Anzahl der Felder des übergebenen Bereiches zu bestimmen, erhalte in der zweiten Printanweisung des nachfolgenden Codes aber jedes mal eine Fehlermeldung. "Index außerhalb des definierten Bereiches". Kann mir jemand einen Tipp geben?

[code]Sub Test
ArrayDimension("M1", "A1:C3")
End Sub

Sub ArrayDimension (strSheetName As String, strBereich As String)

Dim oDoc As Object
Dim oBereich As Object
Dim aDat As Variant

oDoc = ThisComponent
oBereich = oDoc.Sheets(strSheetName).getCellRangeByName(strBereich)
aDat = oBereich.getDataArray()

Print "Anzahl Zeilen:= " + UBound(aDat,1)
Print "Anzahl Spalten:= " + UBound(aDat,2)

End Sub[/code]

Danke, Gruß Markus