OpenOffice.info

[quote]Beim Makrorecorder hat er nach 2 Durchgängen einen Laufzeitfehler ausgesworfen.[/quote]

Wahrscheinlich weil Du am oberen Tabellenrand (Zeile 1) angekommen warst?

Mein Hinweis auf den Makrorekorder bezog sich auf DEine Frage:
"Ich hab nur noch keine Funktion gefunden die sozusagen die Feiltaste nach oben darstellt"

und das aufgezeichnete Makro funktioniert auch genau so, nämlich gibt EINEN Klick auf die Pfeiltaste wieder.

Das aufgezeichnete Makro führt hingegen [u]nicht [/u]das hier aus:
[i]"ich bräuchte ein kleines Makro mit den ich in die aktuelle Zelle eine 0 schreibe und dann eine Zelle nach oben springe und dort das selbe mache. So lange bis in Zelle G1 eine 1 steht."[/i]
weil sich darauf meine Antwort mit dem aufgezeichneten Makro nicht bezog.


Gruß
Stephan

Vielen Dank, mit deinen Code hat es funktiopniert.

Beim Makrorecorder hat er nach 2 Durchgängen einen Laufzeitfehler ausgesworfen.

sub Main
  oDoc = thisComponent  'Zugiff auf das Dokument
  oSheet = oDoc.sheets(0)  'Erstes Tabellenblatt
  oZelleA = oSheet.getCellRangeByName("G1")
  
  sr = ThisComponent.GetCurrentSelection.RangeAddress.StartRow
  sc = ThisComponent.GetCurrentSelection.RangeAddress.StartColumn
  
  Do While (oZelleA.value < 1 AND sr >= 0)
    oSheet.getCellByPosition(sc, sr).Value = 0
    sr = sr - 1
  Loop
  MsgBox "ENDE"

end sub

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args1())

end sub

[quote]ich bräuchte ein kleines Makro mit den ich in die aktuelle Zelle eine 0 schreibe und dann eine Zelle nach oben springe und dort das selbe mache. So lange bis in Zelle G1 eine 1 steht.[/quote]

z.B.:

[code]sub Main
oDoc = thisComponent 'Zugiff auf das Dokument
oSheet = oDoc.sheets(0) 'Erstes Tabellenblatt
oZelleA = oSheet.getCellRangeByName("G1")

sr = ThisComponent.GetCurrentSelection.RangeAddress.StartRow
sc = ThisComponent.GetCurrentSelection.RangeAddress.StartColumn

Do While (oZelleA.value < 1 AND sr >= 0)
oSheet.getCellByPosition(sc, sr).Value = 0
sr = sr - 1
Loop
MsgBox "ENDE"

end sub[/code]

[quote]Ich hab nur noch keine Funktion gefunden die sozusagen die Feiltaste nach oben darstellt.[/quote]

am Simpelsten ist es das per Makrorecorder aufzuzeichnen:

[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args1())

end sub[/code]



Gruß
Stephan

sub Main
  oDoc = thisComponent  'Zugiff auf das Dokument
  oSheet = oDoc.sheets(0)  'Erstes Tabellenblatt
  oZelleA = oSheet.getCellRangeByName("G1") 
Do While oZelleA.value < 1
ThisComponent.GetCurrentSelection
ThisComponent.GetCurrentSelection.Value = "0" 

Loop
MsgBox ("ENDE")

end sub

Hallo,
ich bräuchte ein kleines Makro mit den ich in die aktuelle Zelle eine 0 schreibe und dann eine Zelle nach oben springe und dort das selbe mache. So lange bis in Zelle G1 eine 1 steht. Ich hab nur noch keine Funktion gefunden die sozusagen die Feiltaste nach oben darstellt.

[code]sub Main
oDoc = thisComponent 'Zugiff auf das Dokument
oSheet = oDoc.sheets(0) 'Erstes Tabellenblatt
oZelleA = oSheet.getCellRangeByName("G1")
Do While oZelleA.value < 1
ThisComponent.GetCurrentSelection
ThisComponent.GetCurrentSelection.Value = "0"

Loop
MsgBox ("ENDE")

end sub
[/code]