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