CALC: Löschen bestimmter Spalten

[bst]

Morgen,

versuche das mal so. Die Überschriften müssen in Zeile 1 (= Index 0 bei getCellByPosition) stehen.

HTH, Bernd
--

Code: Alles auswählen

Sub Main
   oSheet = ThisComponent.CurrentController.getActiveSheet()
   oCellCursor = oSheet.createCursor()
   oCellCursor.GotoEndOfUsedArea(True)
   iLastCol = oCellCursor.getRangeAddress.EndColumn
   
   oColumns=oSheet.getColumns
   arToDel = Array("P04035", "R04037", "P04040")
   for i = iLastCol to 0 Step -1
      strVal = oSheet.getCellByPosition(i,0).String
      for each varItem in arToDel
         if strVal = varItem Then
            oColumns.removeByIndex(i,1)   
            exit for
         endif
      next
   next 
End Sub