Makro -Einfügen nicht nur in einer Zelle

Computer: Software & Programmierung Office Software
1

Moin!

Ich habe ein MAkro in OpenOffice erstellt. Endlich läuft es, mein Problem ist aber, dass alles in eine Zelle (O5) geschrieben wird und somit unbrauchbar ist.
Wie kann ich den Befehl geben, dass immer eine Zelle runtergerutscht wird?

Betriebssystem: Ubuntu 12.04
OpenOffice: 3.5.4.2

Makro:

REM **** Basic ****
Option Explicit

Sub Mitteln

Dim Bgn as Integer, i As Integer, J as Integer, Z as Integer
Dim myDoc as Object, mySheet as Object, mycell as Object

myDoc = ThisComponent
mySheet = myDoc.sheets().getByName(„120910_SchlammTS2_AC3_2“)
mycell = mySheet.getCellByPosition(14,4)

Bgn = (3)
For J = 0 to 24
For i = 1 to 600
Z = i + Bgn + J*600

'Relaxation 120s
If i

2

Ich habe ein MAkro in OpenOffice erstellt. Endlich läuft es,
mein Problem ist aber, dass alles in eine Zelle (O5)
geschrieben wird und somit unbrauchbar ist.
Wie kann ich den Befehl geben, dass immer eine Zelle
runtergerutscht wird?

Hallo Funksummer,

ungetestet, teste mal und berichte:

Rem \*\*\*\* Basic \*\*\*\*
Option Explicit

Sub Mitteln()
Dim Bgn As Integer, i As Integer, J As Integer, Z As Integer
Dim myDoc As Object, mySheet As Object, mycell As Object
myDoc = ThisComponent
mySheet = myDoc.Sheets().getByName("120910\_SchlammTS2\_AC3\_2")
mycell = mySheet.getCellByPosition(14, 4)
Bgn = (3)
mycell.Resize(24 \* 600).Formula = "=Average(R[-2]C[-3]:R[3]C[-3])"
For J = 0 To 24
 For i = 1 To 600
 Z = i + Bgn + J \* 600
 'Relaxation 120s
 If i \>= 5 And i = 130 And i = 230 And i 

Gruß
Reinhard
3

Moin und Danke erstmal!
Leider hängt das Makro bei

i >= 230 And i ="

Warum weiß ich ehrlich gesagt überhaupt nicht :confused:

Lieben Gruß!

4

ok, hab’s selber geschnallt, da fehlte ein „if“

Dafür gibt es jetzt am Ende die Fehlermeldung
„unexpected symbol i“

5

ok, hab’s selber geschnallt, da fehlte ein „if“

Dafür gibt es jetzt am Ende die Fehlermeldung
„unexpected symbol i“

Hallo FS,

das kann an sich nicht sein. i wurde mit Dim deklariert.
Stelle bitte erstmal sicher daß dein Code exakt meinem entspricht.

Gruß
Reinhard

6

Moin!

Hab das Makro jetzt nochmal kopiert und eingesetzt.
Jetzt Fehlermeldung: property or method not found „Resize“
bei

Dankeschön schonmal!

Kopiertes/verwendetes MAkro noch mal hier:

Rem **** Basic ****
Option Explicit

Sub Mitteln()
Dim Bgn As Integer, i As Integer, J As Integer, Z As Integer
Dim myDoc As Object, mySheet As Object, mycell As Object
myDoc = ThisComponent
mySheet = myDoc.Sheets(1)
mycell = mySheet.getCellByPosition(14, 4)
Bgn = (3)
mycell.Resize(24 * 600).Formula = „=Average(R[-2]C[-3]:R[3]C[-3])“ '–>Fehlermeldung
For J = 0 To 24
For i = 1 To 600
Z = i + Bgn + J * 600
'Relaxation 120s
If i >= 5 And i = 130 And i = 230 And i