OpenOffice.info

Verfasst: **So, 24.02.2013 01:38**

Hallo Forum User!

Ich brauche mal eure Hilfe!

Ich möchte gerne eine Calc Tabelle erstellen, die unter anderem auch einen Button (Schaltfläche) enthält damit folgende Aktion beim anklicken
ausgeführt werden soll:

Es soll immer eine bestimmte Zeile immer unter der bestehende Zeile mit Textfeld und den Formaten kopiert werden.

Z.b. ich möchte eine Personalliste erstellen und nicht per Paste & Copy die einzelnen Zellen in einer Zeile kopieren sondern die Zeile
wo steht: Name (Textfeld), Vorname (Textfeld), Straße (Textfeld), Geburtsdatum (Textfeld), Personalnummer (Textfeld) usw.

Habe es mit dem Makrorecorder versucht, aber dort gelingt nur das Paste & Copy, aber nicht das er das beim nochmaligen drücken der Schaltfläche wieder unter der neu eingefügten Zeile eine neue
einfügt.

Ich hoffe ich habe das einigermaßen verständlich erklärt!

Ich danke euch jetzt schon im Voraus!!!

Gruß

Verfasst: **So, 24.02.2013 09:36**

Moin hummigummi,

hummigummi hat geschrieben:Ich hoffe ich habe das einigermaßen verständlich erklärt!

Nein, hast Du leider nicht.
Lies dir doch bitte zuerst die Allgemeinen Hinweise zur Forumsbenutzung, hier insbesondere den Abschnitt Wie stelle ich ein Beispieldokument zur Verfügung (und wozu)? durch.
Gruß R

Verfasst: **Do, 21.03.2013 18:37**

Ja, kann ich verstehen. Also hich habe einmal als Anhang eine Datei hochgeladen.

Was ich gerne möchte:

Wenn man auf der Schaltfläche klickt, möchte ich gerne das die Zellen 5-6 und B, C & D automatisch unter der Zeile 6 dupliziert werden....

Verfasst: **Do, 21.03.2013 20:15**

So,
hier ein kurzes Makro, an das Ereignis "Aktion ausführen" der Schaltfläche binden, fertig.

Code: Alles auswählen

Sub S_Copy_Range
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(false)
    nrow = ocursor.rangeaddress.EndRow
    oSourceRange = osheet.getcellrangebyname("B5:D6")
    otargetcell = osheet.getcellbyposition(1,nrow+1)
    osheet.copyRange(otargetcell.celladdress,oSourceRange.Rangeaddress)
End Sub

Gruß R

Verfasst: **Do, 21.03.2013 20:49**

Danke Schatzi! Ich denke mal, ich fange nun auch mal an mit der Makro Programmierung!

Verfasst: **Do, 21.03.2013 22:21**

hummigummi hat geschrieben:Ich denke mal, ich fange nun auch mal an mit der Makro Programmierung!

Na dann mal viel Erfolg Mausezahn:-)

OpenOffice.info

Calc Makro "Schaltfläche" : Kopieren von Zeile

Calc Makro "Schaltfläche" : Kopieren von Zeile

Re: Calc Makro "Schaltfläche" : Kopieren von Zeile

Re: Calc Makro "Schaltfläche" : Kopieren von Zeile

Re: Calc Makro "Schaltfläche" : Kopieren von Zeile

Re: Calc Makro "Schaltfläche" : Kopieren von Zeile

Re: Calc Makro "Schaltfläche" : Kopieren von Zeile