OpenOffice.info

Mein Makro veröffentlichen?

Nee lieber nicht, da

1. gerippt und zusammengeklebt,

2. viel zuviele Codezeilen (es ginge einfacher und viel schneller! - hatte bloss keine Lust mehr das Zeugs umzuschreiben)

3. fehlt dann nicht auch noch die Tabelle dazu..?!

4. es muss schon ein wenig besser programmiert aussehen ... sonst schäme ich mich :oops:

(Die Tabelle ist ne Art Lehrerkalender... brauch eh keiner :D )

bye Sloopa

Hallo

[quote].. und das ist unheimlich, woher weiss Dreas, dass ich genau 14 Zeilen kopieren will?!!??! [/quote]

Vielleicht weil eine Woche 7 Tage hat :) - Aber dein fertiges Makro darfst du gerne hier
posten.

@Stephan
Ich dachte irrtümlich, man kann die Selektion des [b]jeweils nächsten[/b] Bereichs ebenfalls [b]aufzeichnen[/b] - aber man muss eben doch im aufgezeichneten Code die Bereichsadressen kopieren und anpassen.

Gruß Karo

Vielen Lieben Dank für eure Anregungen und Hilfen!

@Dreas - ich habe deinen Tipp jetzt nicht mehr ausprobiert, ich behalte das aber mal im Hinterkopf.

@all - mein Makro ist fertich (97%) und funkt... und der Tag ist rum.


[quote="Dreas"] ...die die Zeilennummern anzeigt. (Also Zeile 1 bis Zeile 14).
Ich kann damit in OOo 2.0.2 die Zeilenhöhe kopieren.
[/quote]

... und das ist unheimlich, woher weiss Dreas, dass ich genau 14 Zeilen kopieren will?!!??!

Thx @all

Sloopa

Hallo Sloopa,

probiere mal folgendes:
Markiere nicht die einzelnen Zellen von z.B. ZelleA1 bis ZelleF14, sondern markiere die ganze Zeile im Zeilenkopf = die allererste Spalte noch vor der Spalte A, die die Zeilennummern anzeigt. (Also Zeile 1 bis Zeile 14).
Ich kann damit in OOo 2.0.2 die Zeilenhöhe kopieren.

Gruß
Andreas

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RowHeight"
args1(0).Value = 2050

dispatcher.executeDispatch(document, ".uno:RowHeight", "", 0, args1())


end sub

[quote]Also bei mir funktionierts wie gewünscht.
OOo 2.02

edit
entschuldigung hier hab ich zu schnell geantwortet funktioniert so leider nicht . [/quote]

Eigentlich sollte dasaber gehen, das hier kann ich in 2.0.2 mit Makrorekorder aufzeichnen:

[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RowHeight"
args1(0).Value = 2050

dispatcher.executeDispatch(document, ".uno:RowHeight", "", 0, args1())


end sub[/code]

Gruß
Stephan

Hallo Sloopa

[quote]Und das Witzige beim Aufzeichnen eines Nakros: Zeilenhöhenveränderungen werden nicht mit aufgezeichnet... [/quote]

Also bei mir funktionierts wie gewünscht.
OOo 2.02

edit
entschuldigung hier hab ich zu schnell geantwortet funktioniert so leider nicht .

Gruß Karo

Jo Pinsel hat auch nicht geklappt...

[quote="Karolus"]
Dann zeichne dir eine komplette Routine (Zeilenhöhe-Formatierungen-Selektieren und kopieren des ersten Bereichs-'Selektieren-und-Inhalte Einfügen des zweiten Bereichs')
als Makro auf, lege dieses auf eine Tastenkombination und drücke diese Tastenkombination noch 50 mal.
[/quote]

Und das Witzige beim Aufzeichnen eines Nakros: Zeilenhöhenveränderungen werden nicht mit aufgezeichnet...

Aber ich versuche gerademal ein Makro zu schreiben (irgendwie war VBA einfacher...)

Danke für die Antworten!

Hallo Sloopa

Markiere den ersten Bereich, klicke auf den "Pinsel" oben in der Symbolleiste,
klick in die linke obere Zelle des nächsten Bereichs und ziehe mit gedrückter Maustaste bis zur rechten unteren Zelle des 52ten Bereichs.

Ich merke gerade das dabei die Zeilenhöhen nicht mitangepasst werden.-

Dann zeichne dir eine komplette Routine (Zeilenhöhe-Formatierungen-Selektieren und kopieren des ersten Bereichs-'Selektieren-und-Inhalte Einfügen des zweiten Bereichs')
als Makro auf, lege dieses auf eine Tastenkombination und drücke diese Tastenkombination noch 50 mal.



Gruß Karo

[quote]So - die erste Doppelseite habe ich erstellt [/quote]

Calc kennt i.d.S. keine Seiten. In Calc sind lediglich Tabellen die auf Blätter verteilt ausgedruckt werden können.

[quote]und nun möchte ich diese Seite 52x untereinanderkopieren. [/quote]

Ja ebend, und eine Seite existiert doch garnicht, es existieren Tabellen bzw. Zellbereiche.

[quote]Hierbei werden aber die Zeilenhöhen[/quote]

richtig, meines Wissens nicht

[quote]und die Zellformate nicht mitkopiert.[/quote]

kann ich mir nicht vorstellen, welche Formate denn konkret?
Welche Version von OOo verwendest Du? Welches Betriebssystem?

[quote]Kann man da irgendetwas einstellen, damit Calc Zeilenhöhe und Zellformatierungen mitkopiert und einfügt... [/quote]

Für Zeilenhöhen nicht, Zellformatierungen sollten allerdings übernommen werden, es sei denn Du schließt sie mittels Bearbeiten-Inhalte einfügen (und Abwahl im erscheinenden Dialog) bewußt aus.



[quote]Ich bin am verzweifeln [...][/quote]

Sorry, dann hättest Du Deine Arbeit wohl besser planen müssen.
Formatierungen der Zellen werden normalerweise übernommen, generell solltest Du aber mit Zellvorlagen arbeiten. Zeilenhöhen und Spaltenbreiten werden beim Kopieren ganzer Tabellen ebenfalls übernommen. Ob Letzteres bei Dir (noch) geht weiß ich nicht, denn ich kenne Deine genauen Tabellen insofern nicht das beim Kopieren auch Formelergebnisse, Verknüpfungen, etc. betroffen sein können.




Gruß
Stephan

Hallo,

ich möchte mir gern einen Ausdruckbaren Wochenkalender erstellen.

So - die erste Doppelseite habe ich erstellt und nun möchte ich diese Seite 52x untereinanderkopieren.

Hierbei werden aber die Zeilenhöhen und die Zellformate nicht mitkopiert.
(und ich habe keine Lust 51x neu zu formatieren)

Kann man da irgendetwas einstellen, damit Calc Zeilenhöhe und Zellformatierungen mitkopiert und einfügt...

Ich bin am verzweifeln, ich habe schon sämtliche Internetseiten und dieses Forum durchforstet...

MfG

Sloopa