OpenOffice.info

Hallo Jürgen
das war gut, vielen Dank Markus

aListe(i) = aZeile()

aListe(i) = aZeile(0)

Hallo Markus,

ersetze einfach
[code]aListe(i) = aZeile()[/code]
durch
[code]aListe(i) = aZeile(0)[/code]

Gruß
Jürgen

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

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]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[/code]

Im Vorhien Danke für die Hilfe Markus



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst