Calc Makro "Schaltfläche" : Kopieren von Zeile

[hummigummi]

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ß

[F3K Total]

Moin hummigummi,

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

[hummigummi]

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....

[F3K Total]

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

[hummigummi]

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

[F3K Total]

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

Na dann mal viel Erfolg Mausezahn:-)