Frage stellen
0

Wie kann man mehrere Zeilen gleichzeitig getrennt verbinden

gefragt 2017-01-18 10:27:09 +0200

Luke0367 Gravatar-Bild

Hallo an Alle, ich arbeite mit LibreOffice 5.1.6.2 und möchte im Tabellendokument (Calc.) mehrere Zeilen gleichzeitig getrennt verbinden. Kann mir jemand helfen. Viele Grüße Susanna

Bearbeiten Tags ändern Melden schließen vereinen löschen

1 Antwort

0

geantwortet 2017-01-20 01:40:35 +0200

Lupp Gravatar-Bild

updated 2017-01-20 01:41:25 +0200

Das geht nur mit extra Programmierung.
(Nebenbei: Verbinden von Zellen sollte man m.E. vermeiden wo immer es geht - und meistens geht es).

REM  *****  BASIC  *****
Option Explicit

Sub mergeRowwise()
    Dim theDoc As Object
theDoc = ThisComponent
If NOT theDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then Exit Sub
    Dim theSelection As Object
theSelection = ThisComponent.CurrentSelection
If NOT theSelection.SupportsService("com.sun.star.sheet.SheetCellRange") then Exit Sub
    Dim theMR As Object, nextSelection As Object, theRA As Variant
    Dim theXdiff as Long, theYdiff as Long, j As Long
theRA = theSelection.RangeAddress
theXdiff = theRA.EndColumn - theRA.StartColumn
theYdiff = theRA.EndRow    - theRA.StartRow
For j = 0 To theYdiff
    theMR = theSelection.GetCellRangeByPosition(0,j,theXdiff,j)
    theMR.Merge(True)
Next j
nextSelection = theSelection.GetCellRangeByPosition(0,0,0,theYdiff)
theDoc.CurrentController.Select(nextSelection)
End Sub

Eine Beispieldatei ist auch da.

Bearbeiten Melden löschen Link mehr
Registrieren oder einloggen, um zu antworten

Antwortwerkzeuge

1 Beobachter

Statistik

Gefragt: 2017-01-18 10:27:09 +0200

Angesehen: 124 Mal

Aktualisiert: Jan 20 '17