[Gelöst] Ausgewählten Bereich auf benachbarte Zellen erweitern und Inhalt löschen
Verfasst: Mo 7. Jan 2019, 20:59
Hallo,
ich habe folgenden Code:
Nach dem Kopieren der Zellinhalte von einem Tabellenblatt zu einem Anderen, wird der markierte Inhalt aus dem Quell-Tabellenblatt gelöscht. Nun hat es sich aber ergeben, dass in der Zelle / in den Zellen links vom markierten Bereich ebenfalls Inhalt vorhanden ist, der mitgelöscht werden soll. Wären es nur Zellen in einer Zeile könnte ich das Löschen des Inhalts über das Ansprechen der Zeile lösen. Wie mache ich es aber, wenn sich die Markierung über mehrere Zeilen erstreckt (z.B. B4:H10) und der Inhalt der Zellen A4:A10 mitgelöscht werden sollen. Sie sind nicht markiert. Kann ich sie in den Löschvorgung einschließen? Es soll immer der Inhalt der Zellen des markierten Bereichs und der Zellen links daneben gelöscht werden. Die Markierung ist variabel. Es wäre super, wenn mir hier jemand weiterhelfen könnte.
Vielen Dank
Luna
ich habe folgenden Code:
Code: Alles auswählen
Sub KopiereBereich
oDocument = ThisComponent
oSheet1 = oDocument.Sheets(1)
Quellbereich = oDocument.getCurrentSelection()
aDaten()=Quellbereich.getDataArray()
Quelle = Quellbereich.getRangeAddress
iZeilen = uBound(aDaten()) 'das DataArray besteht aus den Zeilen des Quellbereichs
iSpalten=uBound(aDaten(0)) 'die Spalten sind in jedem einzelnen Elementdes Arrays verpackt
'Zielbereich festlegen, hier: beginnend ab der Zelle C43
'Der Zielbereich muss dieselbe Größe haben, wie der Quellbereich
oZielRange=oSheet1.getCellRangeByPosition(2,42,2+iSpalten,42+iZeilen)
oZielRange.setDataArray(aDaten())
'Inhalte vom Quellbereich löschen
Quellbereich.clearcontents(5)
End Sub
Vielen Dank
Luna