ich hab kein kleines Problem mit einem Makro. Hab das Makro von irgendwo her, eventuell sogar aus diesem Forum.
Das Makro speichert mir meine Vorlage unter einem neuen Name, der in A7 steht, ab. Und zwar in das selbe Verzeichnis in der sich auch meine Vorlage befindet. So weit so gut.
Ich möchte aber jetzt nicht das selbe Verzeichnis haben sondern ein anderes z.B "C:\test"... da ich aber das Makro nicht wirklich verstehe, weiß ich nicht wo ich ansetzen soll...
Code: Alles auswählen
Sub SpeicherButton
dim oDoc as Object, oSheet as object
dim n as integer, sUrl as string, sUrl2 as string
dim arg()
oDoc = thisComponent
sURL = oDoc.url
n = 1
do while instr(n+1, sUrl, "/") <> 0
n = instr(n+1, sURl,"/")
loop
oSheet = oDoc.sheets().getByName("Tabelle")
sUrl2 = "K" & oSheet.getCellRangeByName("a7").string & ".ods"
sUrl = left(sUrl, n) & sUrl2
oDoc.storeAsUrl(sUrl, arg())
End Sub