Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen

[nessiedesign]

Hallo allerseits,
ich habe ein Problem und benötige fachmännische Hilfe für folgendes Makro:
Unter jeder beschriebenen Zeile soll eine Leerzeile eingefügt werden. Dann sollen in dieser eingefügten Leerzeile die Spalten A:J zu einer Zelle zusammengefügt werden und dann der Wert aus Spalte Q in diese Zelle eingetragen werden. Der Vorgang soll sich dann Zeile für Zeile bis zum Ende der Tabelle fortsetzen. Die Tabellendatei befindet sich im Anhang.

Vorab gaaaanz herzlichen Dank für Lösungsvorschläge.

KHK

STEP01.ods

(15.61 KiB) 114-mal heruntergeladen

[mikele]

Hallo,

Dann sollen in dieser eingefügten Leerzeile die Spalten A:J zu einer Zelle zusammengefügt werden und dann der Wert aus Spalte Q in diese Zelle eingetragen werden.

???
Die eingefügte Zeile ist leer. Was soll da zusammengefügt werden? Welcher Wert aus Spalte Q (ist ja auch leer) soll wo eingetragen werden?

[nessiedesign]

Hallo Mikele,
vielen Dank für die schnelle Antwort. Ich habe mich wohl unklar ausgedrückt und bitte das zu entschuldigen (bin Anfänger!).
Zur Verdeutlichung habe ich Dir ein PDF angehängt und das Makro - soweit ich das bisher zusammensuchen konnte. (Klappt leider nur für die erste Zeile).

Hier mein Makro:

Sub S_insert_rows
osheet = thiscomponent.sheets.getbyname("Tabelle1")
orows = osheet.rows
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(False)
nrow = ocursor.rangeaddress.endrow
for i = nrow to 1 step -1
orows.insertbyindex(i,1)
next i

dim aData()
dim oTab as variant, oBereich as Variant, oZielbereich as Variant
oTab = thiscomponent.sheets.getbyname("Tabelle1")
oBereich = oTab.getCellRangeByName("Q1")
aData = oBereich.getDataArray()
oZielbereich = oTab.getCellRangeByName("A6")
oZielbereich.setDataArray(aData)
end sub

Nochmals Danke für die Hilfe

LG
KHK

[mikele]

Hallo,
warum sollen die Zellen verbunden werden? Es hat keinen optischen oder inhaltlichen Vorteil - oder doch? Im Gegenteil: der Umgang mit verbundenen Zelle ist eher problematisch.

[nessiedesign]

Hallo Mikele,

Hallo,
warum sollen die Zellen verbunden werden? Es hat keinen optischen oder inhaltlichen Vorteil - oder doch? Im Gegenteil: der Umgang mit verbundenen Zelle ist eher problematisch.

Die Tabelle soll dann in InDesign importiert werden und davon soll ein PDF erstellt werden. Wenn die Zellen so belassen werden, schneidet InDesign den Text (z.B. in Zelle A2) am Zellenende ab. So kann der Link für die GoogleMap nicht komplett dargestellt werden. Laienhafte Frage: kann man das nicht in Form einer Schleife realisieren?

etwa so:
for i = nrow to 1 step -1
orows.insertbyindex(i,1)
next i

[Wanderer]

... Wenn die Zellen so belassen werden, schneidet InDesign den Text (z.B. in Zelle A2) am Zellenende ab. So kann der Link für die GoogleMap nicht komplett dargestellt werden.
...

Wie importiert Ihr denn nach InDesign. Bei uns läuft das regelmässig von Base via XML nach Indesign und ich habe auch schon ganze A4-Seiten Text als Feldinhalt gehabt. Allerdings habe ich damals eine XML-Spezifikation dafür geschrieben.

Was passiert eigentlich, wenn nur die Spalte breiter gemacht wird, oder sich Zeilenhöhe/Spaltenbreite an den Inhalt anpasst?

Mfg, Jörn

[nessiedesign]

Hi

Wie importiert Ihr denn nach InDesign. Bei uns läuft das regelmässig von Base via XML nach Indesign und ich habe auch schon ganze A4-Seiten Text als Feldinhalt gehabt. Allerdings habe ich damals eine XML-Spezifikation dafür geschrieben.

InDesign-Tabelle anlegen, Verknüpfung mit dieser Office-Tabelle erstellen, dann in InDesign Tabelle formatieren und finishen - fertig.
LG
KHK

[mikele]

Hallo,
es gäbe auch eine Lösung per Formel (siehe Anhang Tabelle2). Diese 2. Tabelle könnte dann für den Export genutzt werden.

[nessiedesign]

Hi Mikele,

THAT'S IT !
Wie kann ein alter Mann Dir danken? Du hast mir sehr geholfen!
1000 x THX!

LG
KHK