I want to copy the values, the formats and all conditional formats from an LibreOffice-Calc worksheet-range (A1:H100) to another (new/empty) worksheet of the same workbook.

This is, what I do actually:

sub blatt_einfuegen

  oActiveSheet = ThisComponent.CurrentController.ActiveSheet
  oTabellen = ThisComponent.Sheets
  sNewSheetName=oActiveSheet.getCellRangeByName("C1").String
  
  
  ' Prüfen, ob eine Tabelle mit dem Namen des Strings aus Zelle C1 existiert.
  If NOT oTabellen.hasbyName(sNewSheetName) Then
    ' Tabelle mit dem Namene sNewSheetName existiert nicht, also wird sie eingefügt.
    oTabellen.insertNewByName (sNewSheetName, 3)
  End If
  
  DIM oStart as Object, oZiel as Object

  oStart = ThisComponent.sheets.getByName("Aktuell")     '<--- Blatt wo die Daten stehen
  oZiel = ThisComponent.sheets.getByName(sNewSheetName)  '<--- Blatt wohin die Daten kopiert werden sollen

  ' Zellinhalte übertragen
  Dim aDataArray()  
  aDataArray = oStart.getCellRangeByName("A1:H100").getDataArray
  oZiel.getCellRangeByName("A1:H100").setDataArray(aDataArray)
 
  ' Spaltenbreiten übertragen
  For j = 0 To 6
    oZiel.Columns.getByIndex(j).Width = oStart.Columns.getByIndex(j).Width
  Next j

  Call CopyFormatBetweenSheets(sNewSheetName)
  
End Sub

Sub CopyFormatBetweenSheets(sName$)
    Dim oSourceSheet As Object
    Dim oTargetSheet As Object
    Dim oSourceRange As Object
    Dim oTargetRange As Object
    Dim i As Integer
    Dim j As Integer
    
    ' Get the source sheet (where the source range is located)
    oSourceSheet = ThisComponent.Sheets.getByName("Aktuell")
    
    ' Get the target sheet (where the target range is located)
    oTargetSheet = ThisComponent.Sheets.getByName(sName)    
    
    ' Define the source range (range with the formatting to be copied)
    oSourceRange = oSourceSheet.getCellRangeByName("A1:H100")
    
    ' Define the target range (range where the formatting will be applied)
    oTargetRange = oTargetSheet.getCellRangeByName("A1:H100")

    ' Copy the formatting from the source range to the target range
    For i = 0 To oSourceRange.Rows.getCount() - 1
       For j = 0 To oSourceRange.Columns.getCount() - 1
            oTargetRange.getCellByPosition(j, i).CharFontName = oSourceRange.getCellByPosition(j, i).CharFontName
            oTargetRange.getCellByPosition(j, i).CharHeight = oSourceRange.getCellByPosition(j, i).CharHeight
            oTargetRange.getCellByPosition(j, i).CharWeight = oSourceRange.getCellByPosition(j, i).CharWeight
            oTargetRange.getCellByPosition(j, i).NumberFormat = oSourceRange.getCellByPosition(j, i).NumberFormat
            oTargetRange.getCellByPosition(j, i).CharUnderline = oSourceRange.getCellByPosition(j, i).CharUnderline
            oTargetRange.getCellByPosition(j, i).HoriJustify = oSourceRange.getCellByPosition(j, i).HoriJustify
            oTargetRange.getCellByPosition(j, i).VertJustify = oSourceRange.getCellByPosition(j, i).VertJustify
            oTargetRange.getCellByPosition(j, i).ConditionalFormat = oSourceRange.getCellByPosition(j, i).ConditionalFormat

            ' Add more properties as needed (e.g., CharColor, CellBackColor, etc.)
       Next j
    Next i
End Sub

It copies the values, the formats, but only the first conditional format, what is defined in the cells from oSourceRange.

Is it possible to copy all of the conditional formats of the cells or is there a better way for copying the oSourceRange values, formats and conditional formats to the oTargetRange?

The values are copyied by an array-method (.setDataArray) – Is there a method for doing this with the fomats?