BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Makro Einzelner sheet export to PDF

Alles zur Programmierung im LibreOffice.
Antworten
laubi
Beiträge: 1
Registriert: So 3. Apr 2022, 11:54

Makro Einzelner sheet export to PDF

Beitrag von laubi » So 3. Apr 2022, 12:21

Hallo zusammen,

ich hatte mir vor Jahren ein Rechnung/Angebot Template herunter geladen.
Dieses Template hat 4 sheets Rechnung, Angebot, Grunddaten und Adressen.

Sheet Rechnung hat 4 Buttons: Rechnung neu, Neue Rechnungsnummer, Rechnung speichern, Beenden.

Wenn ich auf den Button "Rechnung speichern" klicke dann wird ein PDF-Dokument generiert, der Dateiname besteht dann aus Rechnungnummer_Kundenname_datum.pdf
Soweit so gut..funktioniert eigentlich ganz gut...
Nun zum Problem:
Wenn ich auf "Rechnung speichern" klicke dann generiert er im PDF Dokument auch was aktuell im Sheet Angebot steht...

Wie schaffe ich es das er nur das aktuelle sheet "Rechnung" ins PDF Dokument speichert?

Über jede Hilfe wäre ich Dankbar...

Anbei der Programietext:

sub beenden
dim gedrueckt as integer
gedrueckt = msgbox("Wirklich beenden?" , 4 + 32, "Beenden?")
if gedrueckt = 6 then
ThisComponent.store()
ThisComponent.close(TRUE)
end if
End Sub

Sub Main
oSheet = thisComponent.sheets(0)'1.Blatt
oSheet.getColumns().isvisible = false
for si = 0 to 10
oSheet.getColumns().getbyindex(si).isvisible = true
next
oSheet.getrows().isvisible = false
for zi = 0 to 61
oSheet.getrows().getbyindex(zi).isvisible = true
next
oSheet = thisComponent.sheets(1)'2.Blatt
oSheet.getColumns().isvisible = false
for si = 0 to 10
oSheet.getColumns().getbyindex(si).isvisible = true
next
oSheet.getrows().isvisible = false
for zi = 0 to 61
oSheet.getrows().getbyindex(zi).isvisible = true
next

End Sub


sub PDF_druck_Rechnung
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim o_sheets as object
dim o_file as object
dim dispatcher as object

rem ----------------------------------------------------------------------
oCalc = thiscomponent
Sheet = oCalc.Sheets(0)
cell = sheet.getCellByPosition(1, 13,)
cell1 = sheet.getCellByPosition(9, 17)
o_file = thiscomponent
o_sheets = o_file.sheets
Kundenname = Cell.String
Rechnungsnr = cell1.string

if Rechnungsnr <> "" then
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

if o_sheets.getbyname("Angebot").isvisible = true then
o_sheets.getbyname("Angebot").isvisible = false
end if

if o_sheets.getbyname("Grunddaten").isvisible = true then
o_sheets.getbyname("Grunddaten").isvisible = false
end if

dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value ="file:///C:/Fliesen/Rechnungen" & " " & year(now()) & "/" & "Rechnung" & "_" & Rechnungsnr & "_" & Kundenname & "_" & format(now(),"dd-mm") & ".pdf"
Pfad = args1(0).Value
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ReduceImageResolution",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SelectPdfVersion",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenBookmarkLevels",0,-1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsSkipEmptyPages",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FormsType",0,3,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportFormFields",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ResizeWindowToInitialPage",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DisplayPDFDocumentTitle",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialView",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Magnification",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageLayout",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialPage",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Changes",0,4,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableCopyingOfContent",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportLinksRelativeFsys",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PDFViewSelection",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ConvertOOoTargetToPDFTarget",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarksToPDFDestination",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DocumentOpenPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PermissionPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageRange",0,"1",com.sun.star.beans.PropertyState.DIRECT_VALUE))
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())
if o_sheets.getbyname("Angebot").isvisible = false then
o_sheets.getbyname("Angebot").isvisible = true
end if

if o_sheets.getbyname("Grunddaten").isvisible = false then
o_sheets.getbyname("Grunddaten").isvisible = true

end if

MsgBox("Rechnung wurde abgespeichert unter " & Pfad,64)

else
MsgBox("Keine Rechnungsnummer vorhanden",48)
end if

end sub

sub PDF_druck_Angebot
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim o_sheets as object
dim o_file as object
dim dispatcher as object

rem ----------------------------------------------------------------------
oCalc = thiscomponent
Sheet = oCalc.Sheets(1)
cell = sheet.getCellByPosition(1, 13,)
cell1 = sheet.getCellByPosition(9, 17)
o_file = thiscomponent
o_sheets = o_file.sheets
Kundenname = Cell.String
Angebotsnr = cell1.string

if Angebotsnr <> "" then

rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

if o_sheets.getbyname("Rechnung").isvisible = true then
o_sheets.getbyname("Rechnung").isvisible = false
end if

if o_sheets.getbyname("Grunddaten").isvisible = true then
o_sheets.getbyname("Grunddaten").isvisible = false
end if
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value ="file:///C:/Fliesen/Angebote" & " " & year(now()) & "/" & "Angebot" & "_" & Angebotsnr & "_" & Kundenname & "_" & format(now(),"dd-mm") & ".pdf"
Pfad = args1(0).Value
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ReduceImageResolution",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SelectPdfVersion",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenBookmarkLevels",0,-1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsSkipEmptyPages",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FormsType",0,3,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportFormFields",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ResizeWindowToInitialPage",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DisplayPDFDocumentTitle",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialView",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Magnification",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageLayout",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialPage",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Changes",0,4,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableCopyingOfContent",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportLinksRelativeFsys",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PDFViewSelection",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ConvertOOoTargetToPDFTarget",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarksToPDFDestination",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DocumentOpenPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PermissionPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageRange",0,"1",com.sun.star.beans.PropertyState.DIRECT_VALUE))

dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())

if o_sheets.getbyname("Rechnung").isvisible = false then
o_sheets.getbyname("Rechnung").isvisible = true
end if

if o_sheets.getbyname("Grunddaten").isvisible = false then
o_sheets.getbyname("Grunddaten").isvisible = true

end if

MsgBox("Angebot wurde abgespeichert unter " & Pfad,64)
else
MsgBox("Keine Angebotsnummer vorhanden",48)
end if

end sub

function GetAndSetNumber_Rechnung as string
dim f as Integer
dim rechnungsdatei as string
dim renummer as string
rechnungsdatei="c:/Fliesen_EMIR/Daten/Rechnungsnr.txt"
if FileExists("file:///"&rechnungsdatei) then
f = FreeFile()
Open "file:///"&rechnungsdatei for Input as #f
Line Input #f, renummer
close #f
f = FreeFile()
Open "file:///"&rechnungsdatei for output as #f
Print #f, val(renummer)+1
close #f
else
renummer=0
endif
GetAndSetNumber_Rechnung=renummer & "Nr."
ThisComponent.sheets(0).getCellRangeByName("J18").value=renummer
end function

function GetAndSetNumber_Angebot as string
dim f as Integer
dim angebotsdatei as string
dim an_nummer as string
angebotsdatei="c:/Fliesen_EMIR/Daten/Angebotsnr.txt"
if FileExists("file:///"&angebotsdatei) then
f = FreeFile()
Open "file:///"&angebotsdatei for Input as #f
Line Input #f, an_nummer
close #f
f = FreeFile()
Open "file:///"&angebotsdatei for output as #f
Print #f, val(an_nummer)+1
close #f
else
an_nummer=0
endif
GetAndSetNumber_Angebot=an_nummer
ThisComponent.sheets(1).getCellRangeByName("J18").value=an_nummer
end function




sub Zellen_loeschen_Rechnung
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Flags"
args3(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$18:$E$23"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Flags"
args7(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$A$25:$I$45"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "Flags"
args9(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "$A$46"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Flags"
args11(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "ToPoint"
args12(0).Value = "$A$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "Flags"
args13(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ToPoint"
args14(0).Value = "$A$48"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(0) as new com.sun.star.beans.PropertyValue
args15(0).Name = "Flags"
args15(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(0) as new com.sun.star.beans.PropertyValue
args16(0).Name = "ToPoint"
args16(0).Value = "$A$49"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "Flags"
args17(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(0) as new com.sun.star.beans.PropertyValue
args18(0).Name = "ToPoint"
args18(0).Value = "$A$50"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(0) as new com.sun.star.beans.PropertyValue
args19(0).Name = "Flags"
args19(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "ToPoint"
args20(0).Value = "$A$51"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(0) as new com.sun.star.beans.PropertyValue
args21(0).Name = "Flags"
args21(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(0) as new com.sun.star.beans.PropertyValue
args22(0).Name = "ToPoint"
args22(0).Value = "$A$52"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(0) as new com.sun.star.beans.PropertyValue
args23(0).Name = "Flags"
args23(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(0) as new com.sun.star.beans.PropertyValue
args24(0).Name = "ToPoint"
args24(0).Value = "$A$54"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(0) as new com.sun.star.beans.PropertyValue
args25(0).Name = "Flags"
args25(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(0) as new com.sun.star.beans.PropertyValue
args26(0).Name = "ToPoint"
args26(0).Value = "$A$57"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(0) as new com.sun.star.beans.PropertyValue
args27(0).Name = "Flags"
args27(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(0) as new com.sun.star.beans.PropertyValue
args28(0).Name = "ToPoint"
args28(0).Value = "$A$60"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(0) as new com.sun.star.beans.PropertyValue
args29(0).Name = "Flags"
args29(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "ToPoint"
args30(0).Value = "$A$62"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(0) as new com.sun.star.beans.PropertyValue
args31(0).Name = "Flags"
args31(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$H$54"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "Flags"
args33(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args33())

rem ----------------------------------------------------------------------
dim args34(0) as new com.sun.star.beans.PropertyValue
args34(0).Name = "ToPoint"
args34(0).Value = "$H$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args34())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "Flags"
args35(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(0) as new com.sun.star.beans.PropertyValue
args36(0).Name = "ToPoint"
args36(0).Value = "$J$47"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args36())

rem ----------------------------------------------------------------------
dim args37(0) as new com.sun.star.beans.PropertyValue
args37(0).Name = "StringName"
args37(0).Value = "=WENN(H47="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";RUNDEN(SUMME(H47)*SUMME(J46);2))"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args37())

rem ----------------------------------------------------------------------
dim args38(0) as new com.sun.star.beans.PropertyValue
args38(0).Name = "ToPoint"
args38(0).Value = "$J$17"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args38())

rem ----------------------------------------------------------------------
dim args39(0) as new com.sun.star.beans.PropertyValue
args39(0).Name = "StringName"
args39(0).Value = "1"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args39())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args41(0) as new com.sun.star.beans.PropertyValue
args41(0).Name = "ToPoint"
args41(0).Value = "$J$17"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args41())


end sub



sub Zellen_loeschen_Angebot
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$F$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "By"
args5(0).Value = 1
args5(1).Name = "Sel"
args5(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Flags"
args6(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1
args9(1).Name = "Sel"
args9(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "By"
args10(0).Value = 1
args10(1).Name = "Sel"
args10(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Flags"
args11(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(1) as new com.sun.star.beans.PropertyValue
args12(0).Name = "By"
args12(0).Value = 1
args12(1).Name = "Sel"
args12(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(1) as new com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1
args13(1).Name = "Sel"
args13(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(1) as new com.sun.star.beans.PropertyValue
args14(0).Name = "By"
args14(0).Value = 1
args14(1).Name = "Sel"
args14(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(1) as new com.sun.star.beans.PropertyValue
args15(0).Name = "By"
args15(0).Value = 1
args15(1).Name = "Sel"
args15(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(0) as new com.sun.star.beans.PropertyValue
args16(0).Name = "Flags"
args16(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(1) as new com.sun.star.beans.PropertyValue
args17(0).Name = "By"
args17(0).Value = 1
args17(1).Name = "Sel"
args17(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(0) as new com.sun.star.beans.PropertyValue
args18(0).Name = "Flags"
args18(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(1) as new com.sun.star.beans.PropertyValue
args19(0).Name = "By"
args19(0).Value = 1
args19(1).Name = "Sel"
args19(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "Flags"
args20(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(1) as new com.sun.star.beans.PropertyValue
args21(0).Name = "By"
args21(0).Value = 1
args21(1).Name = "Sel"
args21(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(1) as new com.sun.star.beans.PropertyValue
args22(0).Name = "By"
args22(0).Value = 1
args22(1).Name = "Sel"
args22(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(1) as new com.sun.star.beans.PropertyValue
args23(0).Name = "By"
args23(0).Value = 1
args23(1).Name = "Sel"
args23(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(1) as new com.sun.star.beans.PropertyValue
args24(0).Name = "By"
args24(0).Value = 1
args24(1).Name = "Sel"
args24(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(1) as new com.sun.star.beans.PropertyValue
args25(0).Name = "By"
args25(0).Value = 1
args25(1).Name = "Sel"
args25(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(1) as new com.sun.star.beans.PropertyValue
args26(0).Name = "By"
args26(0).Value = 1
args26(1).Name = "Sel"
args26(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(1) as new com.sun.star.beans.PropertyValue
args27(0).Name = "By"
args27(0).Value = 1
args27(1).Name = "Sel"
args27(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(1) as new com.sun.star.beans.PropertyValue
args28(0).Name = "By"
args28(0).Value = 1
args28(1).Name = "Sel"
args28(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(1) as new com.sun.star.beans.PropertyValue
args29(0).Name = "By"
args29(0).Value = 1
args29(1).Name = "Sel"
args29(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(1) as new com.sun.star.beans.PropertyValue
args30(0).Name = "By"
args30(0).Value = 1
args30(1).Name = "Sel"
args30(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(1) as new com.sun.star.beans.PropertyValue
args31(0).Name = "By"
args31(0).Value = 1
args31(1).Name = "Sel"
args31(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(1) as new com.sun.star.beans.PropertyValue
args32(0).Name = "By"
args32(0).Value = 1
args32(1).Name = "Sel"
args32(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(1) as new com.sun.star.beans.PropertyValue
args33(0).Name = "By"
args33(0).Value = 1
args33(1).Name = "Sel"
args33(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args33())

rem ----------------------------------------------------------------------
dim args34(1) as new com.sun.star.beans.PropertyValue
args34(0).Name = "By"
args34(0).Value = 1
args34(1).Name = "Sel"
args34(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args34())

rem ----------------------------------------------------------------------
dim args35(1) as new com.sun.star.beans.PropertyValue
args35(0).Name = "By"
args35(0).Value = 1
args35(1).Name = "Sel"
args35(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(1) as new com.sun.star.beans.PropertyValue
args36(0).Name = "By"
args36(0).Value = 1
args36(1).Name = "Sel"
args36(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args36())

rem ----------------------------------------------------------------------
dim args37(1) as new com.sun.star.beans.PropertyValue
args37(0).Name = "By"
args37(0).Value = 1
args37(1).Name = "Sel"
args37(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args37())

rem ----------------------------------------------------------------------
dim args38(1) as new com.sun.star.beans.PropertyValue
args38(0).Name = "By"
args38(0).Value = 1
args38(1).Name = "Sel"
args38(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args38())

rem ----------------------------------------------------------------------
dim args39(1) as new com.sun.star.beans.PropertyValue
args39(0).Name = "By"
args39(0).Value = 1
args39(1).Name = "Sel"
args39(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(1) as new com.sun.star.beans.PropertyValue
args40(0).Name = "By"
args40(0).Value = 1
args40(1).Name = "Sel"
args40(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(1) as new com.sun.star.beans.PropertyValue
args41(0).Name = "By"
args41(0).Value = 1
args41(1).Name = "Sel"
args41(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args41())

rem ----------------------------------------------------------------------
dim args42(1) as new com.sun.star.beans.PropertyValue
args42(0).Name = "By"
args42(0).Value = 1
args42(1).Name = "Sel"
args42(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args42())

rem ----------------------------------------------------------------------
dim args43(1) as new com.sun.star.beans.PropertyValue
args43(0).Name = "By"
args43(0).Value = 1
args43(1).Name = "Sel"
args43(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args43())

rem ----------------------------------------------------------------------
dim args44(1) as new com.sun.star.beans.PropertyValue
args44(0).Name = "By"
args44(0).Value = 1
args44(1).Name = "Sel"
args44(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args44())

rem ----------------------------------------------------------------------
dim args45(1) as new com.sun.star.beans.PropertyValue
args45(0).Name = "By"
args45(0).Value = 1
args45(1).Name = "Sel"
args45(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args45())

rem ----------------------------------------------------------------------
dim args46(1) as new com.sun.star.beans.PropertyValue
args46(0).Name = "By"
args46(0).Value = 1
args46(1).Name = "Sel"
args46(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args46())

rem ----------------------------------------------------------------------
dim args47(1) as new com.sun.star.beans.PropertyValue
args47(0).Name = "By"
args47(0).Value = 1
args47(1).Name = "Sel"
args47(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args47())

rem ----------------------------------------------------------------------
dim args48(1) as new com.sun.star.beans.PropertyValue
args48(0).Name = "By"
args48(0).Value = 1
args48(1).Name = "Sel"
args48(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args48())

rem ----------------------------------------------------------------------
dim args49(1) as new com.sun.star.beans.PropertyValue
args49(0).Name = "By"
args49(0).Value = 1
args49(1).Name = "Sel"
args49(1).Value = true

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args49())

rem ----------------------------------------------------------------------
dim args50(0) as new com.sun.star.beans.PropertyValue
args50(0).Name = "Flags"
args50(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args50())

rem ----------------------------------------------------------------------
dim args51(1) as new com.sun.star.beans.PropertyValue
args51(0).Name = "By"
args51(0).Value = 1
args51(1).Name = "Sel"
args51(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args51())

rem ----------------------------------------------------------------------
dim args52(1) as new com.sun.star.beans.PropertyValue
args52(0).Name = "By"
args52(0).Value = 1
args52(1).Name = "Sel"
args52(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args52())

rem ----------------------------------------------------------------------
dim args53(1) as new com.sun.star.beans.PropertyValue
args53(0).Name = "By"
args53(0).Value = 1
args53(1).Name = "Sel"
args53(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args53())

rem ----------------------------------------------------------------------
dim args54(1) as new com.sun.star.beans.PropertyValue
args54(0).Name = "By"
args54(0).Value = 1
args54(1).Name = "Sel"
args54(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args54())

rem ----------------------------------------------------------------------
dim args55(1) as new com.sun.star.beans.PropertyValue
args55(0).Name = "By"
args55(0).Value = 1
args55(1).Name = "Sel"
args55(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args55())

rem ----------------------------------------------------------------------
dim args56(1) as new com.sun.star.beans.PropertyValue
args56(0).Name = "By"
args56(0).Value = 1
args56(1).Name = "Sel"
args56(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args56())

rem ----------------------------------------------------------------------
dim args57(1) as new com.sun.star.beans.PropertyValue
args57(0).Name = "By"
args57(0).Value = 1
args57(1).Name = "Sel"
args57(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args57())

rem ----------------------------------------------------------------------
dim args58(1) as new com.sun.star.beans.PropertyValue
args58(0).Name = "By"
args58(0).Value = 1
args58(1).Name = "Sel"
args58(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args58())

rem ----------------------------------------------------------------------
dim args59(1) as new com.sun.star.beans.PropertyValue
args59(0).Name = "By"
args59(0).Value = 1
args59(1).Name = "Sel"
args59(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args59())

rem ----------------------------------------------------------------------
dim args60(0) as new com.sun.star.beans.PropertyValue
args60(0).Name = "Flags"
args60(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args60())

rem ----------------------------------------------------------------------
dim args61(1) as new com.sun.star.beans.PropertyValue
args61(0).Name = "By"
args61(0).Value = 1
args61(1).Name = "Sel"
args61(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args61())

rem ----------------------------------------------------------------------
dim args62(0) as new com.sun.star.beans.PropertyValue
args62(0).Name = "Flags"
args62(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args62())

rem ----------------------------------------------------------------------
dim args63(1) as new com.sun.star.beans.PropertyValue
args63(0).Name = "By"
args63(0).Value = 1
args63(1).Name = "Sel"
args63(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args63())

rem ----------------------------------------------------------------------
dim args64(0) as new com.sun.star.beans.PropertyValue
args64(0).Name = "Flags"
args64(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args64())

rem ----------------------------------------------------------------------
dim args65(1) as new com.sun.star.beans.PropertyValue
args65(0).Name = "By"
args65(0).Value = 1
args65(1).Name = "Sel"
args65(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args65())

rem ----------------------------------------------------------------------
dim args66(0) as new com.sun.star.beans.PropertyValue
args66(0).Name = "Flags"
args66(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args66())

rem ----------------------------------------------------------------------
dim args67(1) as new com.sun.star.beans.PropertyValue
args67(0).Name = "By"
args67(0).Value = 1
args67(1).Name = "Sel"
args67(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args67())

rem ----------------------------------------------------------------------
dim args68(0) as new com.sun.star.beans.PropertyValue
args68(0).Name = "Flags"
args68(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args68())

rem ----------------------------------------------------------------------
dim args69(1) as new com.sun.star.beans.PropertyValue
args69(0).Name = "By"
args69(0).Value = 1
args69(1).Name = "Sel"
args69(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args69())

rem ----------------------------------------------------------------------
dim args70(0) as new com.sun.star.beans.PropertyValue
args70(0).Name = "Flags"
args70(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args70())

rem ----------------------------------------------------------------------
dim args71(1) as new com.sun.star.beans.PropertyValue
args71(0).Name = "By"
args71(0).Value = 1
args71(1).Name = "Sel"
args71(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args71())

rem ----------------------------------------------------------------------
dim args72(0) as new com.sun.star.beans.PropertyValue
args72(0).Name = "Flags"
args72(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args72())

rem ----------------------------------------------------------------------
dim args73(1) as new com.sun.star.beans.PropertyValue
args73(0).Name = "By"
args73(0).Value = 1
args73(1).Name = "Sel"
args73(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args73())

rem ----------------------------------------------------------------------
dim args74(0) as new com.sun.star.beans.PropertyValue
args74(0).Name = "Flags"
args74(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args74())

rem ----------------------------------------------------------------------
dim args75(1) as new com.sun.star.beans.PropertyValue
args75(0).Name = "By"
args75(0).Value = 1
args75(1).Name = "Sel"
args75(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args75())

rem ----------------------------------------------------------------------
dim args76(0) as new com.sun.star.beans.PropertyValue
args76(0).Name = "Flags"
args76(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args76())

rem ----------------------------------------------------------------------
dim args77(1) as new com.sun.star.beans.PropertyValue
args77(0).Name = "By"
args77(0).Value = 1
args77(1).Name = "Sel"
args77(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args77())

rem ----------------------------------------------------------------------
dim args78(0) as new com.sun.star.beans.PropertyValue
args78(0).Name = "Flags"
args78(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args78())

rem ----------------------------------------------------------------------
dim args79(1) as new com.sun.star.beans.PropertyValue
args79(0).Name = "By"
args79(0).Value = 1
args79(1).Name = "Sel"
args79(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args79())

rem ----------------------------------------------------------------------
dim args80(0) as new com.sun.star.beans.PropertyValue
args80(0).Name = "Flags"
args80(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args80())

rem ----------------------------------------------------------------------
dim args81(1) as new com.sun.star.beans.PropertyValue
args81(0).Name = "By"
args81(0).Value = 1
args81(1).Name = "Sel"
args81(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args81())

rem ----------------------------------------------------------------------
dim args82(1) as new com.sun.star.beans.PropertyValue
args82(0).Name = "By"
args82(0).Value = 1
args82(1).Name = "Sel"
args82(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args82())

rem ----------------------------------------------------------------------
dim args83(0) as new com.sun.star.beans.PropertyValue
args83(0).Name = "Flags"
args83(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args83())

rem ----------------------------------------------------------------------
dim args84(1) as new com.sun.star.beans.PropertyValue
args84(0).Name = "By"
args84(0).Value = 1
args84(1).Name = "Sel"
args84(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args84())

rem ----------------------------------------------------------------------
dim args85(1) as new com.sun.star.beans.PropertyValue
args85(0).Name = "By"
args85(0).Value = 1
args85(1).Name = "Sel"
args85(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args85())

rem ----------------------------------------------------------------------
dim args86(0) as new com.sun.star.beans.PropertyValue
args86(0).Name = "Flags"
args86(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args86())

rem ----------------------------------------------------------------------
dim args87(0) as new com.sun.star.beans.PropertyValue
args87(0).Name = "ToPoint"
args87(0).Value = "$H$50"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args87())

rem ----------------------------------------------------------------------
dim args88(0) as new com.sun.star.beans.PropertyValue
args88(0).Name = "Flags"
args88(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args88())

rem ----------------------------------------------------------------------
dim args89(0) as new com.sun.star.beans.PropertyValue
args89(0).Name = "ToPoint"
args89(0).Value = "$H$49"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args89())

rem ----------------------------------------------------------------------
dim args90(0) as new com.sun.star.beans.PropertyValue
args90(0).Name = "Flags"
args90(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args90())

rem ----------------------------------------------------------------------
dim args91(0) as new com.sun.star.beans.PropertyValue
args91(0).Name = "ToPoint"
args91(0).Value = "$J$49"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args91())

rem ----------------------------------------------------------------------
dim args92(0) as new com.sun.star.beans.PropertyValue
args92(0).Name = "Flags"
args92(0).Value = "SVDF"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args92())

rem ----------------------------------------------------------------------
dim args93(0) as new com.sun.star.beans.PropertyValue
args93(0).Name = "StringName"
args93(0).Value = "=WENN(H49="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";RUNDEN(SUMME(H49)*SUMME(J48);2))"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args93())

rem ----------------------------------------------------------------------
dim args94(0) as new com.sun.star.beans.PropertyValue
args94(0).Name = "ToPoint"
args94(0).Value = "$J$17"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args94())

rem ----------------------------------------------------------------------
dim args95(0) as new com.sun.star.beans.PropertyValue
args95(0).Name = "StringName"
args95(0).Value = "1"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args95())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args97(1) as new com.sun.star.beans.PropertyValue
args97(0).Name = "By"
args97(0).Value = 1
args97(1).Name = "Sel"
args97(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args97())


end sub

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Makro Einzelner sheet export to PDF

Beitrag von mikele » Mo 4. Apr 2022, 23:17

Hallo,
hier mal eine Variante, die die aktuelle Tabelle als pdf exportiert. Wird das Makro von der Tabelle "Rechnung" aufgerufen, wird sie als Rechnung (in dem entsprechenden Verzeichnis) gespeichert, von "Angebot" als Angebot.

Code: Alles auswählen

sub PDF_druck

	oCalc = thiscomponent
	oSheet = oCalc.CurrentController.ActiveSheet
	cell = osheet.getCellByPosition(1, 13,)
	cell1 = osheet.getCellByPosition(9, 17)
	Kundenname = osheet.getCellByPosition(1, 13).String
	Nummer = "1"'osheet.getCellByPosition(9, 17).string

	if Nummer <> "" then
		'Rechnung oder Angebot
		sArt=oSheet.Name
		'Dateiname inkl. Pfad
		sUrl="C:/Fliesen/" & sArt & " " & year(now()) & "/" & sArt & "_" & Rechnungsnr & "_" & Kundenname & "_" & format(now(),"dd-mm") & ".pdf"
		dim args1(2) as new com.sun.star.beans.PropertyValue
		args1(0).Name = "URL"
		args1(0).Value =convertToUrl(sUrl)
		args1(1).Name = "FilterName"
		args1(1).Value = "calc_pdf_Export"
		Dim aFilterData(0) as new com.sun.star.beans.PropertyValue
		aFilterData(0).Name = "Selection"
		aFilterData(0).Value = oSheet
		args1(2).Name = "FilterData"
		args1(2).Value = aFilterData()
		oCalc.storeToUrl(args1(0).value,args1())
			

		MsgBox(sArt & " wurde abgespeichert unter " & sUrl,64)

	else
		MsgBox("Keine " & sArt & "snummer vorhanden",48)
	end if

end sub
Ich würde allerdings beim Dateinamen auch das Jahr mitnehmen (falls die Datei mal woanders landet/genutzt wird), also format(now(),"yyyy-mm-dd"), dann passt die Sortierung auch besser.
Gruß,
mikele

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Makro Einzelner sheet export to PDF

Beitrag von mikele » Mo 4. Apr 2022, 23:36

Hallo,
es hat mir keine Ruhe gelassen ...
Wenn ich es richtig verstanden habe, willst du mit den Makros Zellen_loeschen_Rechnung und Zellen_loeschen_Angebot jeweils auf den Tabellenblättern die Zellen bzw. Bereiche A18:E23; A25:I45; A46:A52; A54; A57; A60; A62; B16; D15:D16; H47; H54 löschen und in J17 den Wert 1 schreiben. Die Formel in J47 muss wohl nicht jedes mal neu geschrieben werden.
Das sollte (für beide Tabellen) folgendes Makro lösen

Code: Alles auswählen

sub zellen_loeschen

	oCalc = thiscomponent
	oSheet = oCalc.CurrentController.ActiveSheet
	aBereiche=Array("A18:E23"; "A25:I45"; "A46:A52"; "A54"; "A57"; "A60"; "A62"; "B16"; "D15:D16"; "H47"; "H54")
	for i=0 to ubound(aBereiche)
		oSheet.getCellRangeByName(aBereiche(i)).clearContents(1+2+4)
	next
	oSheet.getCellRangeByName("J17").Value=1

end sub
Gruß,
mikele

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten