Seite 1 von 1

CALC: Zellbereich auslesen

Verfasst: Sa, 08.10.2011 11:20
von 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

Re: CALC: Zellbereich auslesen

Verfasst: Sa, 08.10.2011 11:38
von turtle47
Hallo Markus,

ersetze einfach

Code: Alles auswählen

aListe(i) = aZeile()
durch

Code: Alles auswählen

aListe(i) = aZeile(0)
Gruß
Jürgen

Re: CALC: Zellbereich auslesen

Verfasst: Sa, 08.10.2011 11:51
von Shirkan
Hallo Jürgen
das war gut, vielen Dank Markus