OpenOffice.info

Hallo Zusammen,

ich habe ein Tabellenblatt erstellt und habe nun das unten aufgeführte Makro hinterlegt.
Das Problem ist, dass das Makro beim neu generierten Blatt nicht mehr vorhanden ist und
immer der Entwurfmodus an ist. Kann mich jemand unterstützen?

Gruß Marc


Sub Export()
Dim Sheet As Object
Sheet = ThisComponent.Sheets.getByName("Sonderurlaub")
ThisComponent.CurrentController.setActiveSheet(Sheet)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
Dim args1(2) as new com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 1
args1(2).Name = "Copy"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())


End Sub

Hallo,
gern - nur verstehe ich das Problem nicht. Makros werden nicht im Tabellenblatt gespeichert, sondern in der Datei.
Worum geht es also?

Das Problem ist, dass das Makro beim neu generierten Blatt nicht mehr vorhanden ist

Ein Makro ist entweder in der Datei oder in den zentralen Makrobibliotheken gespeichert. WEnn es in der DAtei gespeichert ist muss es natürlich separat in die neue Datei übertragen werden wenn Du ein Blatt in eine neue Datei kopierst, z.B. siehe:
http://www.starbasicfaq.de/WiekannmanBi ... ml#Zweig35

und
immer der Entwurfmodus an ist.

DEr Enbtwurfsmodus für Steuerelemente ist beim Öffnen einer Datei an, wenn das vorher (vor dem Speichern der DAtei) in der Steuerlelemente-SYmbolleiste alrtiviert wurde, Icon "Im Entwurfsmodus öffnen" (nicht zu verwechseln mit "Entwurfsmodus an/aus).


Gruß
Stephan

Hallo Mikeleb und Stephan,

das hab ich total übersehen. Ihr habt natürlich recht, habe es sofort
korrigiert und siehe da......Abrakadabra es funktioniert.

Vielen Dank für Eure Hinweise......

Gruß Marc