CALC: Zellbereich auslesen

[Shirkan]

Lieb Leute,
ich möchte den Zelbereich eines Sheets per Makro auslesen. Das gelingt mir aber nicht. Ich bekomme immer die Fehlermeldung "Objektvariable nicht belegt". Kann da mal jemand drüber schaun:

Code: Alles auswählen

Sub BereichAuslesen

Dim oDoc
Dim oBereich
Dim aDat
Dim i
Dim aZeile

	oDoc = ThisComponent
	oBereich = oDoc.Sheets(0).getCellRangeByName("A1:A3")
	aDat = oBereich.getDataArray()
	
Dim aListe(uBound(aDat))

	For i=0 to uBound(aDat)
		aZeile = aDat(i)
		aListe(i) = aZeile()
		Print aListe(i)
	Next

End Sub

Im Vorhien Danke für die Hilfe Markus



Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

[turtle47]

Hallo Markus,

ersetze einfach

Code: Alles auswählen

aListe(i) = aZeile()

durch

Code: Alles auswählen

aListe(i) = aZeile(0)

Gruß
Jürgen

[Shirkan]

Hallo Jürgen
das war gut, vielen Dank Markus