Kopieren von Tabellen mit Formeln

[craig]

Hallo Butch,

1. Das Makro von F3K Total erstellt kein neues Dokument, sondern schreibt in ein bestehendes!
2. Dein Makro ist es, welches ein neues Dokument erstellt!

Zu 2
Wenn Dein Makro ein neues Dokument erstellt hat und der Tabellenausschnitt oder auch die gesamte Tabelle, jenach
zuvor gesezter Markierung in das neue Dokuemnt eingefügt hat, stehen in der Spalte A Nummerierung welche per
Formeln generiert werden.
Du möchtest, dass nun die Formeln in Spalte A durch feste Werte ersetzt werden und
genau dies macht das Makro von F3K Total!

Also musst Du Dein Makro durchlaufen lassen und im Anschluß die Formeln durch feste Werte per Makro ersetzen.
1. Kopiere das gesamte Makro von F3K Total in das Modulsblatt Deines Makros.
2. Schreibe am Ende Deines Makros vor END SUB die Anweisung: CALL S_Tabellennummerierung
3. Fertig

Teste es und melde Dich sofern Du noch Fragen hast.

Gruß

Craig

[F3K Total]

Moin,
geht es so? (aufgenommenes Makro):

Code: Alles auswählen

sub Copy_Selected_Table_Rows_to_new_Doc
    dim noargs()
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
    
    sURL = "private:factory/swriter"
    oDoc2 = StarDesktop.loadComponentFromURL(sURL,"_blank",0,noargs())
    document2 = oDoc2.CurrentController.Frame
    
    dispatcher.executeDispatch(document2, ".uno:InsertPara", "", 0, Array())
    dim args4(0) as new com.sun.star.beans.PropertyValue
    args4(0).Name = "SelectedFormat"
    args4(0).Value = 10
    dispatcher.executeDispatch(document2, ".uno:ClipboardFormatItems", "", 0, args4())
end sub

Gruß R

[Butch]

Moin,
geht es so?

Und ob! Vielen herzlichen Dank, du hast mir viel Arbeit erspart! Ich machte zwar, nachdem ich den "manuellen" Weg gefunden hatte, auch gleich eine Makroaufzeichnung, und dann auch schon einen ersten Versuch, die Aufzeichnung mit meinem Makro zu kombinieren, aber bis ich dann mit meinen erbärmlichen Makrokenntnissen alle Fehler ausgemerzt hätte, würde es noch ewig dauern. Jetzt kann ich mich gleich auf die Suche nach dem nächsten Problem begeben.

Danke,
Butch