Spalten ausschneiden und an anderer einfügen (per Makro)

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Spalten ausschneiden und an anderer einfügen (per Makro)

von Charly » Sa, 13.11.2004 09:45

Hallo Alex!

Schön, dass du schon eine Lösung gefunden hat.

Ich habe für dich auch noch einen Code, ohne den Makrorekorder, geschrieben. Mit diesem Code fügst du beim 1. Tabellenblatt vor Spalte 7 (Index 6) eine Spalte ein, gibst dieser Spalte die gleiche Breite wie die Spalte 3 (Index 2), verschiebst den Inhalt in die neue Spalten und entfernst die alte Spalte.

Code: Alles auswählen

Sub Spaltenverschieben()

Doc = ThisComponent
Blatt = doc.sheets(0)
Blatt.Columns.insertByIndex(6,1)
Spalte = Blatt.Columns(2)
Spalte1 = Blatt.Columns(6)
Spalte1.width = Spalte.width

Quelle = Spalte.getRangeAddress()
Ziel = Blatt.getCellByPosition(6,0)
ZielAdd = Ziel.getCellAddress()

Blatt.moveRange(ZielAdd, Quelle)

Blatt.Columns.removeByIndex(2,1)

End Sub
Gruß
Charly

von mecki_45 » Sa, 13.11.2004 09:00

hab's gelöst - es funktioniert jetzt.

hier der Code:
--------------------------------------------------------

' --- Variablen deklarieren
DIM document as object
DIM dispatcher as object
DIM Args1(0) As New com.sun.star.beans.PropertyValue
DIM Args2(0) As New com.sun.star.beans.PropertyValue

' --- Spalte ausschneiden
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Args1(0).Name = "ToPoint"
Args1(0).Value = "$G$1:$G$20000"
Dispatcher.executeDispatch (Document, ".uno:GoToCell", "", 0, Args1())
dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
' --- Spalte einfügen
Args2(0).Name = "ToPoint"
Args2(0).Value = "$J$1"
Dispatcher.executeDispatch (Document, ".uno:GoToCell", "", 0, Args2())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

-------------------------------------------------------

Alex

Spalten ausschneiden und an anderer einfügen (per Makro)

von mecki_45 » Fr, 12.11.2004 21:20

Hallo zusammen,
wie schneide ich Spalten aus und füge diese an anderer Stelle wieder ein?

Bsp.:
Spalte 3 ausschneiden und vor Spalte 7 wieder einfügen

Wie muss der Code aussehen?

Grüßle
Alex

Nach oben