Hallo KingEisbaer,
Leider ist es mein erstes mal, das ich ein makro selber schreibe.
Na dann wolln ma dir a bisserl helfen.
Auch wenn ich dir nur 2 Links gepostet hatte, so solltest Du dir die Seite, die die beiden links enthalten, mal etwas genauer anschauen. Oder um es dir einfacher zu machen:
Guckst Du hier
Die Seiten von Dannenhöfer sind wirklich zu empfehlen. Nur musst Du dich halt damit auch befassen. Und was
storeasurl und
storetourl betrifft, so schau mal dort z.B. bei "6. Speichern/Öffnen/Drucken von Dateien" rein.
Nun zu den Code. Der müsste jetzt theoretisch wie folgt aussehen.
Code: Alles auswählen
Dim sFileName1 as String
Dim sDatum as String
Dim sNeuerName as String
dim dummy()
sFileName1 = "Wochenarbeitsplan_"
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("B7").String)
sNeuerName = "E:\" & sFileName1 & sDatum & ".odt"
print sNeuerName
dateiurl = converttourl(sNeuerName)
print dateiurl
odoc.storeAsURL(dateiurl,dummy())
Theoretisch deshalb, weil Du ihn noch an deine Bedürfnisse anpassen musst. Sprich: In welchem Tabellenblatt befindet sich die Zelle mit dem Datum?
Und die beiden Print Anweisungen dienen nur zur Kontrolle, die kannst und darfst Du natürlich löschen.
Kommst Du nun weiter?
Gruß
balu