❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
Unterstützen Sie das LibreOffice-Forum und helfen Sie uns, unser Ziel für 2025 zu erreichen!
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
-
- Beiträge: 5
- Registriert: Di 1. Feb 2022, 17:19
Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
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
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
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
Hallo,
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?
???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?
Gruß,
mikele
mikele
-
- Beiträge: 5
- Registriert: Di 1. Feb 2022, 17:19
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
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
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
- Dateianhänge
-
- Vorgang.pdf
- (176.66 KiB) 103-mal heruntergeladen
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
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.
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.
Gruß,
mikele
mikele
-
- Beiträge: 5
- Registriert: Di 1. Feb 2022, 17:19
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
Hallo Mikele,
etwa so:
for i = nrow to 1 step -1
orows.insertbyindex(i,1)
next i
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
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
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.nessiedesign hat geschrieben: ↑Mi 2. Feb 2022, 07:39... 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.
...
Was passiert eigentlich, wenn nur die Spalte breiter gemacht wird, oder sich Zeilenhöhe/Spaltenbreite an den Inhalt anpasst?
Mfg, Jörn
LO 6.0.7 (32Bit) Win8.1 Pro 32 Bit/ LO 6.3.2 Win10 64Bit / LO 6.0.7 Win7 Pro 64 Bit
-
- Beiträge: 5
- Registriert: Di 1. Feb 2022, 17:19
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
Hi
LG
KHK
InDesign-Tabelle anlegen, Verknüpfung mit dieser Office-Tabelle erstellen, dann in InDesign Tabelle formatieren und finishen - fertig.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.
LG
KHK
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
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.
es gäbe auch eine Lösung per Formel (siehe Anhang Tabelle2). Diese 2. Tabelle könnte dann für den Export genutzt werden.
- Dateianhänge
-
- STEP01.ods
- (16.4 KiB) 96-mal heruntergeladen
Gruß,
mikele
mikele
-
- Beiträge: 5
- Registriert: Di 1. Feb 2022, 17:19
Re: Leerzeilen einfügen und Zellinhalt in Leerzeile eintragen
Hi Mikele,
THAT'S IT !
Wie kann ein alter Mann Dir danken? Du hast mir sehr geholfen!
1000 x THX!
LG
KHK
THAT'S IT !
Wie kann ein alter Mann Dir danken? Du hast mir sehr geholfen!
1000 x THX!
LG
KHK
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.