ich bin neu hier und habe ein kleines Problem mit einem Makro. Nach dem Ausfüllen einer Tabelle, soll diese gespeichert werden und danach soll daraus ein PDF exportiert werden. Dazu soll beim Speichern das 1. Tabellenblatt ausgeblendet werden und das 6. Tabellenblatt soll, wenn in Feld E36 eine 0 steht, auch ausgeblendet werden und der Druckbereich des 6. Blattes von $A$1:$G$43 gelöscht werden, da sonst dieser Bereich bei exportieren zu PDF mit erscheint.
Hier das Makro so weit es funktioniert:
Code: Alles auswählen
Sub speichern_unter_wep
dim dummy()
myDoc = thisComponent
mySheet = myDoc.sheets(0) '1. Tabellenblatt
namenszelle = mysheet.getCellRangeByName("B2")
parzelle = mysheet.getCellRangeByName("C2")
datumzelle = mysheet.getCellRangeByName("A2")
rem ------------------------------------------
rem ausblenden der 1. Tabelle beim Speichern.
mySheet = myDoc.Sheets().getByName("Grunddateneingabe")
mysheet.isvisible=false
oDoc = ThisComponent 'das Dokumentenobjekt
oSheet = oDoc.sheets(5) ' das 6. Tabellenblatt Objekt
oCell = oSheet.getCellRangeByName("E36") 'das Objekt der Zelle E36
nWert = oCell.value 'Wert der Zelle - Zahlen
if nwert = 0 then
mySheet = myDoc.Sheets().getByName("Restwertberechnung")
mysheet.isvisible=false
[quote]Hier soll dann der Druckbeich gelöscht werden[/quote]
end if
rem -------------------------------
'Lesen der Werte
Dateiname= namenszelle.string &"_" & "Parz." & " " & parzelle.string &"_" & datumzelle.string
dateipfad="D:/LibreOffice/Neu/"& Dateiname &".ods"
'dein Pfad muss ^^^^^^^^^^^^^^^ dort innerhalb der "-Anführungszeichen stehen !
dateiurl=converttourl(dateipfad)
mydoc.storeasurl(dateiurl,dummy())
End Sub
Viele Grüße
T.F.