OpenOffice.info

DANKE!!! Das war meine Rettung.

Dein Einwurf ist berechtigt!

Habe es nun so versucht:

Sub Auswertung

Dim Doc As Object
Dim Sheeta As Object
Dim Cell As Object

Dim Sheetname(1) as string
Sheetname(1)="Auswertung"



Doc = ThisComponent


for sheetnumber =0 to 2
Sheet = Doc.Sheets.getbyname(Sheetname(1))

Cell = Sheet ...

Hallo,

ich habe nun Zeit gefunden, das Ganze umzusetzen, stehe aber auf der Stelle.
Ich habe 3 Tabellenblätter mit Werten und ein Auswertungstabellenblatt.
Nun möchte ich alle 3 Wertetabellen durchlaufen und mehrere Zeilen und Spalten auf Begriffe abfragen. In der Auswertungstabelle soll dann jede ...

Ich möchte nun eine Auswertung mehrere Tabellen in einem eigenen Tabellenblatt erstellen.

Sub Auswertung
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object

Doc = ThisComponent
Sheet = Doc.Sheets(20)


Cell = Sheet.getCellByPosition(1, 1)
Cell.Formulalocal = "=SUMMENPRODUKT(Tabelle.F5 ...

Danke, das hilft mir sehr!

Hallo Forum,

ich möchte ein Script auf bestimmte Tabellenblätter (Sheets) anwenden. Momentan habe ich es für jede Tabelle einzeln z.B. so gelöst:



Sub Tabelle2
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object

Doc = ThisComponent
Sheet = Doc.Sheets(1)

Cell = Sheet.getCellByPosition(3 ...

Hallo Forum,

ich möchte mehrere Tabellen in einer "Auswertungstabelle" auswerten.

Dazu habe ich in der Auswertungstabelle verschiedene Felder mit Formeln besetzt, beispielsweise:

=SUMMENPRODUKT(((Januar.E1:E45)="Begriffxyz");Januar.D1:D45)

Ich möchte also Beträge einer Spalte E in Tabelle ...