OpenOffice.info

Hi Tom

Ganz lieben Dank für deine Mühe und schnellen antworten.

Es hat prima geklappt.

Grüßlis
Michaela

elseIf oZellUeber.string <> "" then  

Hallo Belana,

[quote].... da is noch ein kleiner Wurm drin. [/quote]

Upps, da ist doch glatt was duch die Lappen gewischt. Sorry!

Die Zeile elseif muss lauten:

[code]elseIf oZellUeber.string <> "" then [/code]

da fehle was. Jetzt wird auch ein Text kopiert.
Das mit dem dem Datum ist so eine Sache: Dieses einfache Makro kopiert keine Zellformate, d.h. ein "echtes" Datum in OOo wird intern als laufende Zahl dargestellt - und die wird kopiert. Schlimmstenfalls musst du die Zellle nachträglich als Datum formatieren. Ist das Datum aber ein "Text", wird es jetzt auch richtig kopiert.

Gruss
Thomas

Prima
hat geklappt nur....... da is noch ein kleiner Wurm drin. :oops:
Es werden nur Zahlen von oben nach unten kopiert, aber kein Datum noch Text.
Haste noch ne Idee?

Grüßlis
Belana

Sub ZellinhaltObenKopieren
	on Error resume next
	oDoc = thisComponent
	' aktuelle Zelle
	oZellAdr = oDoc.getCurrentSelection().getCellAddress()  
	iSheet = oZellAdr.sheet
	oZelle=oDoc.Sheets(iSheet).getCellByPosition(oZellAdr.column, oZellAdr.row)
	' die Zelle oben drüber
	oZellUeber = oDoc.Sheets(iSheet).getCellByPosition(oZellAdr.column, oZellAdr.row -1)
	if oZellUeber.value then
	  oZelle.value = oZellUeber.value
	elseIf oZellUeber.string then
	  oZelle.string = oZellUeber.string
	end if
end sub

Hallo belana,

[quote]Hast du noch den Code dafür, dass man in eine Zelle die Zelle die genau oben dran sich befindet reinkopiert?
[/quote]
Nicht direkt - aber der ist schnell geschrieben:

[code]Sub ZellinhaltObenKopieren
on Error resume next
oDoc = thisComponent
' aktuelle Zelle
oZellAdr = oDoc.getCurrentSelection().getCellAddress()
iSheet = oZellAdr.sheet
oZelle=oDoc.Sheets(iSheet).getCellByPosition(oZellAdr.column, oZellAdr.row)
' die Zelle oben drüber
oZellUeber = oDoc.Sheets(iSheet).getCellByPosition(oZellAdr.column, oZellAdr.row -1)
if oZellUeber.value then
oZelle.value = oZellUeber.value
elseIf oZellUeber.string then
oZelle.string = oZellUeber.string
end if
end sub[/code]

Verfahren wie gehabt. Kopiert allerdings nur Text und Werte in die Zelle. (Cursor in die Zelle, wo es rein soll, Makro aufrufen, der Wert oder der Text der Zelle direkt darüber wird übernommen).
Formeln werden nicht kopier! (nur die Ergebnisse)

Bis denn
Thomas

Hallo Tom
:D
Es hat wunderbar geklappt! Bin ganz happy!!

Hast du noch den Code dafür, dass man in eine Zelle die Zelle die genau oben dran sich befindet reinkopiert?

Klar kann ich in die Zelle obendran gehen und sie kopieren und sie unten drunter wieder einzusetzen, aber es müsste doch auch in nur 1 Schritt gehen, oder?

Ich hoffe ich kriege die Einstellungen noch hin, ohne euch allzu sehr zu nerven.

Danke für eure Hilfe

Grüßlis
Belana

Edit meint ich solle noch ne Überschrift drüber setzten ;)

Sub AktuellesDatumEinfuegen
	thisComponent.CurrentSelection().setString(date())
End Sub

Hallo Belana,


[quote]Und wie erstellt man solch ein Makro? [/quote]
Hmm, da gibt es viele Varianten. Ein ausführliches Makro mit Fehlerroutinen findest du unter:
[url]http://www.teamstaroffice.org/wiki/moin.cgi/AktuellesDatum[/url]
Wenn es etwas einfacher (und schneller) sein kann, dann gehe vor wie folgt:
Extras - Makro -> Bibikiothek soffice-Standard -> Neu -> (namen übernehmen oder eigenen vergeben)
Allen Inhalt im neuen Modul löschen, dann den folgenden Makrocode einfügen:
[code]
Sub AktuellesDatumEinfuegen
thisComponent.CurrentSelection().setString(date())
End Sub[/code]
Speichern. Jetzt kannst du das Makro auf eine Tastaturfolge legen -
Extras - Anpassen - Tastatur -> zum Beispiel Umschalt + F3 ist frei für Calc. Also links im ersten Feld unten zunächst die Bibliothek suchen (Bereich - OpenOffice.org - Standard - Modulname) im Zweiten Feld (Funktionen) erscheint der Makroname -> jetzt die Tastaturkombination oben suchen, markieren und Neu drücken. Ist jetzt zugewiesen.

Jetzt wird das aktuelle Datum als Text in die aktive Zelle eingefügt.

Gruss
Thomas

Und wie erstellt man solch ein Makro?

Please Help!

Grüßlis
Belana

Hey,

Da musst du dir ein Makro schreiben und dieses dann einer Tastenkombination deiner Wahl zuweisen. Voreingestellt gibt es da nix.

Gruss
Thomas

Hallo,

gibt es in OO Calc eine Tastkombination zum Einfügen des aktuellen Datums?

Ich möchte per Shortcut das jetzige Datum in eine Zelle einfügen (keine =jetzt).

Vielen Dank und Grüße!