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
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.