Hallo, Winfried,
Winfried Rohr wrote:
> Hallo Vera,
> vielleicht mit einem UNO-Aufruf einfügen?
>
>
> Folgendes konnte ich mit dem MakroRekorder (2.0.0) aufzeichnen:
>
> rem
> ------------------------------------------------------------
> ----------
> dim args3(5) as new com.sun.star.beans.PropertyValue args3(0).Name
> = "Flags" args3(0).Value = "A"
> args3(1).Name = "FormulaCommand"
> args3(1).Value = 0
> args3(2).Name = "SkipEmptyCells"
> args3(2).Value = false
> args3(3).Name = "Transpose"
> args3(3).Value = true
> args3(4).Name = "AsLink"
> args3(4).Value = false
> args3(5).Name = "MoveMode"
> args3(5).Value = 4
>
> dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0,
> args3())
>
Das ist, wie gesagt, mein erstes Makro.
Deshalb noch die Frage: Wie bekomme ich das in meinen Code eingebettet?
Code:
***********************************************************************
Sub ZellbereichKopieren
Dim oDoc as Object, oQuellblatt as Object
Dim oZiel as Object, oQuelle as Object
Dim oZielblatt as Object
oDoc = ThisComponent
oQuellblatt = oDoc.sheets.getByName("Abfrage")
oZielblatt = oDoc.sheets.getByName("7TOE")
oZiel = oZielblatt.getCellRangeByName("A2").CellAddress
oQuelle = oQuellblatt.getCellRangeByName("B1:B6").RangeAddress
oQuellblatt.copyRange(oZiel, oQuelle)
End Sub
************************************************************************
Hast Du da noch eine Hilfestellung für mich?
Vielen Dank schon mal und viele Grüße
Vera
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
