OpenOffice.info

[quote="Dreas"]Im Grunde genommen habe ich von der Makroprogrammierung so gut wie nichts verstanden. Ich suchte damals so lange, bis mein Problem gelöst war.
Die Seite von [url=http://www.pitonyak.org/oo.php]Andrew Pitonyak findest Du hier.[/url]
Hast Du auch schon mal die Links von Stefan im Unterforum Basic (erster Eintrag) durchsucht?

Gruß Andreas[/quote]

ja, habe ich schon mal gesehen.

Nochmals Vielen Dank, auch für den Link!
Gruß, Herbert

Im Grunde genommen habe ich von der Makroprogrammierung so gut wie nichts verstanden. Ich suchte damals so lange, bis mein Problem gelöst war.
Die Seite von [url=http://www.pitonyak.org/oo.php]Andrew Pitonyak findest Du hier.[/url]
Hast Du auch schon mal die Links von Stefan im Unterforum Basic (erster Eintrag) durchsucht?

Gruß Andreas

Hallo Andreas,

perfekte Lösung, danach habe ich lange gesucht!

Wo kann man sowas nachlesen?

Vielen Dank,
Gruß, Herbert

Rem    Die nachfolgenden drei Zeilen sind von Andrew Pitonyak
Rem    und machen aus der markierten Zelle eine, in die geschreiben 
Rem    und die mit der Entertatste verlassen werden kann.

  REM Select an empty range..
  oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
  ThisComponent.CurrentController.Select(oRanges)
  
Rem    Achtung: Die Schaltfläche von der dieses Macro ausgelöst wird
Rem    muss in der Einstellung: "Kontrollfeld - Fokussieren bei Klick"
Rem    ein NEIN enthalten, sonst ist der Fokus nach dem ersten Klick
Rem    immer bei der Schaltfläche und nicht mehr in der Eingabezelle

Ich habe vor einiger Zeit mal lange gesucht, um ein ähnliches Problem zu lösen. Damals habe ich weitere Code-Schnipsel gefunden und dazugefügt. Was diese bewirken, weiß ich nicht, aber danach klappte es.
Die 7 REM-Zeilen hatte ich damals eingefügt, sonst wüsste ich heute gar nicht mehr was los ist.

Füge die zwei Zeilen nach Deinem Code ein, vielleicht klappt es auch bei Deiner Aufgabe.

[code]Rem Die nachfolgenden drei Zeilen sind von Andrew Pitonyak
Rem und machen aus der markierten Zelle eine, in die geschreiben
Rem und die mit der Entertatste verlassen werden kann.

REM Select an empty range..
oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
ThisComponent.CurrentController.Select(oRanges)

Rem Achtung: Die Schaltfläche von der dieses Macro ausgelöst wird
Rem muss in der Einstellung: "Kontrollfeld - Fokussieren bei Klick"
Rem ein NEIN enthalten, sonst ist der Fokus nach dem ersten Klick
Rem immer bei der Schaltfläche und nicht mehr in der Eingabezelle[/code]

Gruß Andreas

Hallo Forum,
ich setze in einem kleinen Makro u.a. den Zellcursor auf Zeilenanfang.
(Den Code habe ich aus "OpenOffice.org Basic FAQ" von Dannenhoefer.)
.
.
myDoc = thisComponent
myView = myDoc.CurrentController
mysheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(spNR,zNR0)
myView.Select(mycell)
.
.
Soweit ok, aber die markierte Zelle ist schwarz hinterlegt (wie bei einem markierten Bereich, oder wenn man einzelne Zellen verschieben möchte), was ich nicht brauchen kann.
Ich möchte nur den Zellzeiger auf der oben ermittelten Zelle stehen haben, und zwar so, dass man mit der Tabulatortaste in das nächste ungeschützte Feld springen kann.
Wie muss ich obigen Programmcode ergänzen?

Im Voraus schon mal vielen Dank für jede Hilfe
Gruß, herbert