OpenOffice.info

Code: Alles auswählen

Sub schnell()
dim odata(5) ' Das Array wird nur einfach dimensioniert und zwar nach Anzahl der Zeilen.
'Durch den Befehl getDataArray bilden sich die Unterarrays mit den Angaben zur Spalte automatisch
dim Ausgabe(6) 'wie bilde ich hier Unterarrays?? Muss ich diese bereits hier dimensionieren? dim Ausgabe(6)(1) funktioniert nicht

for x=0 to 1
for y=0 to 6 'ansonsten erscheint der Fehler "Objektvariable nicht belegt"
'Ausgabe(x,y) ?????????????????? = ?????????? wie wäre es richtig, damit Ausgabe nachher Ausgabe (y)(x)="" ist?
next
next

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:B5")
oData()= oRange.getDataArray()

Zwischenwert = oData(1) ' Hier wird die Zeile der entsprechenden abzufragenden Zelle angegeben
Wert=Zwischenwert(0) ' Hier wird die Spalte der abzufragenden Zelle angegeben
Ergebnis=Wert/2
'Ausgabe(0,0)=Array(Ergebnis) ?????????????????? wie wäre es richtig, damit Ergebnis in Ausgabe(0)(0) geschrieben wird?

Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(0,1)=Array(Ergebnis2) ??????????

Zwischenwert = oData(2)
Wert=Zwischenwert(0)
Ergebnis=Wert/2
'Ausgabe(1,0)=Array(Ergebnis) ??????????

Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(1,1)=Array(Ergebnis2) ???????????

Zwischenwert = oData(3)
Wert=Zwischenwert(0)
Ergebnis=Wert/2
'Ausgabe(2,0)=Array(Ergebnis) ???????????????

Wert=Zwischenwert(1)
Ergebnis=Wert/2
'Ausgabe(2,1)=Array(Ergebnis2) ????????????

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C1:D7")
oRange.setDataArray(Ausgabe())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt

End Sub

Code: Alles auswählen

Sub SafeArray()

dim Ausgabe

oRange = ThisComponent.Sheets(0).getCellRangeByName("A1:B5")

oData()= oRange.getDataArray()

Redim Ausgabe(ubound(oData),ubound(oData(0)))
for i=0 to ubound(oData())
	msgbox "(" & Join(oData(i), ",") & ")"
	t = oData(i)
	for j=0 to ubound(t)
		Ausgabe(i,j) = t(j)^2
	next
next

oRange = ThisComponent.Sheets(0).getCellRangeByName("C1:D5")
oRange.setDataArray(Ausgabe())


End Sub

Code: Alles auswählen

Sub schnell()
'option base 1 -> wenn das Array bei 1 beginnen soll
dim yEin(5) ' Das Array wird nur einfach dimensioniert und zwar nach Anzahl der einzulesenden Zeilen.
'Durch den Befehl getDataArray bilden sich die Unterarrays mit den Angaben zur Spalte automatisch
dim SpalteC(10) 'Alternativ kann das Ausgabe-Array von der Größe her auch an das Einlese-Array angepasst werden: 
'Ausgabe (LBound(yein()) To UBound(yein()))
dim SpalteD(10)

for y=0 to 10 'zunächst alle "virtuellen Zellen" mit "" füllen, ansonsten erscheint der Fehler "Objektvariable nicht belegt", 
'Anzahl der Durchläufe muss mit der Zellenanzahl des Ausgabebereiches übereinstimmen
SpalteC(y)=Array("")
SpalteD(y)=Array("")
next

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:B5")
yEin()= oRange.getDataArray()

x=1
For y=0 to 4
 ZwischenwertyEin = yein(y) ' Hier wird die Zeile der entsprechenden abzufragenden Zelle angegeben
 xEin=ZwischenwertyEin(x) ' Hier wird die Spalte der abzufragenden Zelle angegeben
 if x=0 then SpalteC(y)=Array(xEin/2): x=1: goto weiter
 if x=1 then SpalteD(y)=Array(xEin/2): x=0
weiter:
next

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C1:C11")'Definition des Ausgabebereiches
oRange.setDataArray(SpalteC())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt
oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("D1:D11")'Definition des Ausgabebereiches
oRange.setDataArray(SpalteD())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt

End Sub

Code: Alles auswählen

option VBASupport 1

Sub VBARangeCopy
a=Range("A1:B9")
Range("F1:G9")=a
End Sub

Code: Alles auswählen

option VBASupport 1

Sub schnell()
Dim Ausgabe(1 to 5000,1 to 3)
yEin= Range("A1:D7500")

For y=1 to 5000
for x=1 to 3 step 2
Ausgabe(y,x)=yEin(y,x)*2
next
next

Range("F1:H5000")=Ausgabe
msgbox("fertig")

Code: Alles auswählen

Sub schnell()
dim Ausgabe(5000) 
dim f(5000)
dim g(5000)
dim h(5000)

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:D7500")
yEin()= oRange.getDataArray()


for y=0 to 5000 'zunächst alle "virtuellen Zellen" mit "" füllen, ansonsten erscheint der Fehler "Objektvariable nicht belegt", 
'Anzahl der Durchläufe muss mit der Zellenanzahl des Ausgabebereiches übereinstimmen
f(y)="":g(y)="":h(y)=""
next


'Mit folgendem Code werden die Spalten A und C jeweils verdoppelt (einfach um irgendetwas zu rechnen)
For y=0 to 5000
ZwischenwertyEin = yein(y) ' Hier wird die Zeile der entsprechenden abzufragenden Zelle angegeben
For x=1 to 3 step 2
xEin=ZwischenwertyEin(x)
Ergebnis=xEin*2

select case x
Case 1
f(y)=Ergebnis
Case 3
h(y)=Ergebnis
end select
next
next

'Ausgabe der Ergebnisse
For y=0 to 5000
Ausgabe(y)=Array(f(y),g(y),h(y))
next
oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("F1:H5001")'Definition des Ausgabebereiches
oRange.setDataArray(Ausgabe())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt
msgbox("fertig")

End Sub

Code: Alles auswählen

Sub schnell()
dim Ausgabe(0 to 5000, 0 to 2) 

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:D7500")
yEin()= oRange.getDataArray()

'Muss nicht unbedingt sein, nicht belegte Felder werden aber in der Tabelle mit #NV ausgegeben
'for y=1 to 5000 
'for x=1 to 3
'Ausgabe(y,x)=""
'next
'next

'Mit folgendem Code werden die Spalten A und C jeweils verdoppelt (einfach um irgendetwas zu rechnen)
For y=0 to 5000
ZwischenwertyEin = yein(y) ' Hier wird die Zeile der entsprechenden abzufragenden Zelle angegeben
For x=0 to 2 step 2
xEin=ZwischenwertyEin(x)
Ergebnis=xEin*2
Ausgabe(y,x)=Ergebnis
next
next

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("F1:H5001")'Definition des Ausgabebereiches
oRange.setDataArray(Ausgabe())'Übertrag der im Array zwischengespeicherten Ergebnisse an den Ausgabebereich im Tabellenblatt
msgbox("fertig")

End Sub