BlattName aendern!

Computer: Software & Programmierung Office Software
1

Guten Tag, bitte um Hilfe!

Function Blattname(a)
Doc = ThisComponent.Currentcontroller.ActiveSheet
Doc.Name = a
End Function

Gibt felhermeldung: BASIC runtime error. Argument is not Option! und NUR beim programm Start! sonst fuctioniert korrekt auf’m Blatt!

Besten Dank,
Hamdy

2

Gibt felhermeldung: BASIC runtime error. Argument is not
Option! und NUR beim programm Start! sonst fuctioniert korrekt
auf’m Blatt!

Hallo Hamdy,

schreib bitte dazu daß es sich um OO handelt.

Und in OO kenne ich mich nicht aus, ist das das was du erreichen willst:

sub Main()
dim Nix
Nix=blattname(„Neuer name für das Blatt“)
end Sub

Function Blattname(a)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(„com.sun.star.frame.DispatchHelper“)
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = „Name“
args1(0).Value = a
dispatcher.executeDispatch(document, „.uno:RenameTable“, „“, 0, args1())
end Function

Gruß
Reinhard