OpenOffice.info

Na ja, eigentlich schon. Du beginnst bei Spalte a:
Eingabe "Wert" - <Tab>
Bist jetzt in Spalte B
Eingabe "Wert" - <Tab>
Bist jetzt in Spalte c
Eingabe "Wert" - <Tab>
Bist jetzt in Spalte D
Eingabe "Wert" - <Return>
Cursor springt auf Spalte A zurück, eine Zeile tiefer. Und weiter geht´s

Eingabe "Wert" - <Tab> ....

Das klappt leider nicht. Denn sobald ich in dem markierten Bereich etwas eintrage, ist die Markierung weg.

Du musst doch lediglich einen Bereich markieren (z.B. A2:D20) und nach der Eingabe mit <tab> weiterspringen.

sub Springe
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")
tc = ThisComponent
tmp = tc.CurrentSelection

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
akt_row = tmp.RangeAddress.StartRow
args2(0).Value = "$A$" & akt_row+2

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end sub

Hallo!

Ich schaffe es nicht, per TAB den Cursor aus der Spalte D in die Spalte A zu setzen (nachdem ich in Spalte D einen Wert eingegeben habe).
Habe in der Spalte D eingegeben, das das Makro "Springe" (eine Zeile tiefer und zur Spalte A) ausgeführt werden soll. Das tut er auch, nur springt der Cursor zuerst in die Spalte A und dann in die Spalte B. Wahrscheinlich, weil der TAB Befehl erst nach dem Macro ausgeführt wird.

Hier mein Anfängermakro:
[code]
sub Springe
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")
tc = ThisComponent
tmp = tc.CurrentSelection

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
akt_row = tmp.RangeAddress.StartRow
args2(0).Value = "$A$" & akt_row+2

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end sub
[/code]