Titel einer Schaltfläche auslesen

[holdrio76]

Hallo,

ich habe eine Schaltfläche in einem Tabellenblatt eingebaut, der immer das selbe tun soll, nämlich ein weiteres Calc-Dokument öffnen, das funktioniert soweit auch ganz gut

Code: Alles auswählen

Sub oeffne_EDV_orga

Dim oDoc as Object
Dim Filepath as String
Dim DirPath as String
Dim DirPath_1 as String
Dim OpenFile as String
Dim ButtonName as String
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
   odoc = thiscomponent
   check = odoc.haslocation()
   if check = true then 'Prüfen ob die Datei einen Dateinamen hat
   Filepath = oDoc.URL
   DirPath = convertfromURL(Filepath)
   DirPath_1 = DirectoryNameoutofPath(DirPath,GetPathSeparator())
   ButtonName = ActiveSheet.Shapes(Application.Caller).DrawingObject.Characters.Text 
   MsgBox ButtonName
   Dim NewWorkbook as Object
   Dim NoArgs()
   OpenFile = ConvertToURL(DirPath_1 & "//Dateilisten/edv_orga.ods")
   MsgBox Filepath & CHR(13) & CHR(13) & DirPath & CHR(13)& CHR(13) & DirPath_1 & CHR(13) & CHR(13) & OpenFile
   NewWorkbook = StarDesktop.loadComponentFromURL(OpenFile,"_blank",0 ,NoArgs())
   else MsgBox "Das Dokument hat noch keinen Dateinamen!"
   end if  
End Sub

Ich möchte jedoch den Code für viele Buttons nutzen um für unterschiedliche Abteilungen jeweils eine Datei zu öffnen. Das bedeutet, dass der Dateiname aus dem Anzeigename des Buttons ausgelesen werden soll. in der Programmzeile Buttonname= ..., habe ich schon mal versucht mit einem hier veröffentlichten Thema etwas hinzbekommen, jedoch funktioniert das nicht.

Ich hoffe jemand kann mir weiterhelfen

Grüße holdrio76

[herz4]

Für Calc(?) vielleicht besser im dortigen Forumsteil suchen!

[holdrio76]

Sorry das war mein Fehler ich stelle die Anfrage nochmals in Basic ein, bitte diesen Beitrag hier löschen. Danke