Hallo zusammen, ich habe ein macro aufgezeichnet in dem der Inhalt einer Zelle ausgeschnitten wird und im nächsten Schritt dem Inhalt der davorliegenden Zelle angehängt wird. Leider weren bei der Aufzeichnung immer absolute Zellen ins macro eingetragen. Wie kann ich dort Variabelen einbauen ala (P1:C1) und dann in vielen Durchläufen von (P1:C1) bis (P1000:C1000)? es geht in diesem Beispiel um das Argument: args1(0).Value = "$Q$1" Hier der Beginn des aufgezeichneten macros: ======================== REM ***** BASIC ***** Sub Main End Sub sub Inhaltekopieren 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 = "ToPoint" args1(0).Value = "$Q$1" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array()) rem ---------------------------------------------------------------------- dim args3(0) as new com.sun.star.beans.PropertyValue args3(0).Name = "StringName" args3(0).Value = "" dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3()) rem ---------------------------------------------------------------------- dim args4(0) as new com.sun.star.beans.PropertyValue args4(0).Name = "ToPoint" args4(0).Value = "$P$1" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array()) ... ===================== für Tipps dankbar Johannes -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org
participants (1)
-
Johannes Kapune