Ich habe folgendes hin bekommen.
Ich habe eine Calc-Tabelle. in der die ersten 12 Zeilen einfach nur Text sind.
Die 12. Zeile sind die Tabellenüberschriftren und danach kommen die Datensätze. (Die per Inhalte einfügen immer neu eingefügt werden.)
Name | Stadt | Anzahl 1 | Anzahl 2 | Anzahl 3 | Name....... etc....
Die ersten 12 Zeilen sind immer gleich und ich möchte daraus eine Vorlage erstellen. Somit passiert alles was passieren muss, erst ab der 13. Zeile
Ich möchte ein Makro programmieren das pro Stadt jeweils die Teilergebnisse für Anzahl1,A2,A3 einfügt. Ich habe auch schon ein Makro aufgezeichnet, welches auch funktioniert.
Das Problem ist, wenn ich es ausführe, übernimmt er die Selektion aus dem Teilergebnissedialog nicht und ich muss wieder alles neu einstellen. Kann man das nicht automatisieren? Die ersten 12 Spalten in der Tabelle ändern sich niemals und die Tabellenüberschriften in der 12. Zeile bleiben auch immer. Am ende möchte ich nur noch die Inhalte einfügen und der soll das Makro dann starten.REM ***** BASIC *****
Sub Main
End Sub
sub Teilergebnisse
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DataSubTotals", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$D$850"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$846"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
end sub
Außerdem sollen zwischen dem letzten Datensatz und dem Gesamtergebnis zwei leere Zeilen sein, wegen der Übersicht. ich habe es mit einem Makro versucht, aber das macht es immer an der selben stelle, das ist unnütz, da die Anzahl der Datensätze immer variiert.
Und was auch noch ein Problem darstellt, wenn die Teilergebnisse eingetragen werden, wird das Autoformat "Ergebnisse", für die entsprechenden neuen Felder benutzt, kann man auch ein anderes Autoformat auswählen? Und einstellen das er es auf einen Bereich von Spalte A bis Spalte J anwendet und nur drumherum einen Rahmen erstellt ohne zwischen den spalten Striche zu machen?
Ich hoffe mir kann jemand irgendwie helfen.
Vielen Dank!