Seite 1 von 1
aktueller coursor position *5 zellen nach rechts markieren*
Verfasst: Fr, 11.05.2007 16:47
von Laines
Hallo
Ich bin am verzweifeln
Ich bin auf der suche nach einem code der mir an meiner
aktuellen Coursor Position
5 Zellen nach recht markiert.
Wie ich die dann kopiere und wo anderst einfüge bekomme ich hin,
nur nicht an meiner aktuellen Position
Gruß
Laines
Verfasst: Fr, 11.05.2007 17:27
von Karolus
Hallo Laines
Ich war jetzt faul, und hab einfach mal die Aktion: shift+[5mal]→
als Makro aufgezeichnet und dieses aufs wesentliche gekürzt:
Code: Alles auswählen
sub fuenfnachrechts
rem define variables
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 5
args2(1).Name = "Sel"
args2(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())
end sub
das geht bestimmt auch mit "richtigem" Basic-code, bei
http://www.dannenhoefer.de/faqstarbasic/ dürftest du fündig werden.
Gruß Karo
Verfasst: Sa, 12.05.2007 16:15
von turtle47
Hallo Zusammen,
ich habe es so gelöst:
Code: Alles auswählen
Sub fuenf_nach_rechts
oZell = thisComponent.getcurrentSelection()
if not oZell.supportsService("com.sun.star.sheet.SheetCell") then
msgbox "Bitte nur eine Zelle markieren (aktivieren)!", 48, "Fehler in Selektion!"
exit Sub
end if
doc=thisComponent
blatt = doc.sheets(0)
oCelle=doc.getCurrentSelection().getCellAddress()
oRow=oCelle.Row ' aktuelle Zeile(Index)
oColumn=oCelle.column ' aktuelle Spalte(Index)
oColumn = oColumn + 5 'Spalte um 5 erhöhen
nCell = blatt.getCellByPosition(oColumn, oRow) 'aktuellen Cursor auf die o.a. Position setzen
doc.CurrentController.Select(nCell)
End Sub
Jürgen
Verfasst: Sa, 12.05.2007 20:00
von Laines
Hallo Jürgen und Karo
Super vielen vielen Dank an euch zwei
Der Code von Karo ist genau der den ich momentan brauche da er mir die fünf Zellen markiert läßt.
Habe aber auch schon eine idee für den Code von Jürgen.
Grüße und nochmals Danke
Rainer
Verfasst: Sa, 12.05.2007 20:48
von Karolus
Hallo
Habe aber auch schon eine idee für den Code von Jürgen.
Etwa so:
Code: Alles auswählen
....
oColumn=oCelle.column ' aktuelle Spalte(Index)
oColumnplus = oColumn + 5 'Spalte um 5 erhöhen
nCell = blatt.getCellRangeByPosition(oColumn, oRow, oColumnplus , orow) 'aktuellen Cursor auf die o.a. Position setzen
.....
Gruß Karo