Gleiche Werte in mehrere Zellen eintragen

[lorbass]

... das permanente strg+v ist nervig.

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?

bei excel geht das leichter.

Warum bleibst du dann nicht bei Excel?

Gruß
lorbass

[turtle47]

Hi,

falls noch jemand eine idee hat, ich bin da sehr dankbar.

Wie ist es mit einem Makro? Kann man sich ja auch auf einen Shortcut (z.B. Strg + P) legen.

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 Sub

ich bin da sehr dankbar

Wir auch, wenn Du Deine Shifttaste mal ölen würdest.
Danke.

Jürgen

[Drizzit]

Hmmm..... vertue ich mich hier oder bildet in OO nicht die Funktion "ALT + Eingabe" die von Excel "STRG + Eingabe" dar ?

War auf der Suche nach selbiger fragestellung und habe es durch Zufall herausgefunden.

Bin wild entschlossen auf OO umzusteigen, mit seeeeeeeeeeeeehr vielen Exceltabellen. Und ich bin sehr optimistisch .

[Karolus]

....sonst wird man Wahnsinnig!

Wenn ich deinen Beitrag lese beschleicht mich das Gefühl, das hast du bereits hinter dir!

Wie dem auch sei - schreibe in A1:

Code: Alles auswählen

=D$1

gib im Addressfeld ein: A1:A3000 bestätige mit der 'enter'Taste und wähle -->Bearbeiten-->Ausfüllen-->Unten

mir erschliesst sich allerdings nicht der Sinn darin einen Zellinhalt in 3000 Zellen zu verknüpfen.