deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
Trage die 1 (oder was auch immer) in eine Zelle ein, kopiere sie mit Strg+C, markiere alle Zielzellen, und füge den kopierten Wert mit einem einmaligen Strg+V in alle markierten Zellen ein. Zu viel?Leela hat geschrieben:... das permanente strg+v ist nervig.
Warum bleibst du dann nicht bei Excel?Leela hat geschrieben:bei excel geht das leichter.
Wie ist es mit einem Makro? Kann man sich ja auch auf einen Shortcut (z.B. Strg + P) legen.Leela hat geschrieben:falls noch jemand eine idee hat, ich bin da sehr dankbar.
Code: Alles auswählen
Sub Paste_2_CellSelections
dim document as object
dim dispatcher as object
odoc = thisComponent
oCells = oDoc.getCurrentSelection()
newCells = oCells.AbsoluteName
oCells1 = split(newCells , ";")
for n = lBound(oCells1()) to ubound(oCells1())
oCell = split(oCells1(n) , ".")
myView = oDoc.CurrentController
osheet = odoc.currentcontroller.activesheet
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = oCell(1)
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()
redim args3
next n
End SubWir auch, wenn Du Deine Shifttaste mal ölen würdest.ich bin da sehr dankbar
.Wenn ich deinen Beitrag lese beschleicht mich das Gefühl, das hast du bereits hinter dir!....sonst wird man Wahnsinnig!
Code: Alles auswählen
=D$1